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INTRODUCTION 

This book is a mixed collection of games and useful programs 
demonstrating the capabilities of the VIC-20, 

The novice home computer user will find great enjoyment in 
knowing that all of the programs in this book will work. The 
more experienced and adventurous user will find the listings 
of both the games and demonstration programs to be in- 
valuable in his quest to produce his own programs. 

In some cases the user will require expansion to his VIC-20 
but most of these programs will run on a basic VIC-20. 

I have enjoyed compiling this collection and hope that others 
will gain as much enjoyment using it. 



NICK HAMPSHIRE 
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BREAKOUT 



DESCRIPTION 

This game is the computer version of the popular arcade 
game Breakout. The program includes some data at the end 
of the program which is entered into the memory. This 
machine code routine uses PEEK (197) to check if either of 
the cursor direction keys have been pressed and moves the 
bat along the bottom of the screen in the direction 
corresponding to the key pressed. This routine could be 
written in Basic but will slow the game to such an extent that 
it will become very boring. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

After typing run, the program will display a few instructions 
mainly explaining that the bat is moved using the two cursor 
keys. Hitting any key will start the game running. There are 
five balls to start with and the object of the game is to knock 
out as many of the bricks as possible. When all the bricks 
have been cleared from the screen, a new set appear and the 
game is played over again. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 
120-230 Set up display. 

280-310 Choose random ball start position and direction. 

320-340 Display score on top of screen. 

350-390 Input for another game. 

430 Turn off sound and call M/C routine. 

480-550 Check for ball hitting object. 

880-910 Check if ball has hit blocks. 

1050-1110 Print instructions. 

1160-1320 POKE data for machine code into memory. 
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mt : «w* w aww hi wmm mm mm mm> 




IS REM BREAKOUT 

29 REM ******+*#****************************** 

30 REM 

48 GOTO 1168 

50 HR=36S73 : S 1 =36376 : 32=36377 
6S PGKEHfi,15 
70 G0SUB1S50 

83 P0KE36379, 1 2 : P=3 ■ Bfl=5 
90 REM 

100 REM DISPLAV 
110 REM 

120 PR I NT "MS "J 

130 F0RI=1TG21 

148 PRINT"»3 «* ^3 S4IIIII " 

158 NEXT 

168 print" as m a a ■* ■■» a 

178 PRINT "SMBM" :flt="a I I I I I I I I I I" 

1 80 PR I NT " «i" R* : PR I NT " II" fi* 
1 90 PR I NT " > H" fl* ■ PR I NT " M" R* 
280 PR I NT " Hi!" A* ■ PR I NT " HI" R* 
2 1 8 PR I NT " >E" At : PR I NT " »" R* 

220 P0KES2 , O : POKEHfl , 1 5 : R a > = 1 26 : R C 2 1 83 
230 fl ( 3 ) = 1 23 = fl < 4 :> = 1 24 = R=0 : 0=0 = V=23 = V = 1 
240 REM 

250 REM RANDOM BALL START POSITION 
268 REM RND DIRECTION 
278 REM 

230 Z=7345+RNU<1>*20 

298 G=INT<RNDO>#2) 

380 IFG=1THENR=1 

31 S IFG=8THENR=3 

320 POKES 1 , 8 : PR I NT " ISSWECORE " SC 

338 PRINT M :rHO»M»>»»IIBALL NO"Bfl 

340 IF BRO0 THEM 4 30 

358 PRINT" ^ANOTHER GRME ?".: 

360 GET fl*:IF fl*="" THEN 368 

370 IF fl$="V" THEN RUN 

338 IF fl*0"N" THEN 360 

390 PR I NT" XT' -POKE 36379, 27 = END 

480 REM 

410 REM PLflV GAME AND MOVE ERT WITH 3V3 7424 
420 REM 

438 POKES 1 .i : SV37424 
440 R=R+1 

450 I F0= 1 THEN I FR>4THENR=3 : Z=Z+V ■ FGKEZ-V, 32 = GOT04S8 
460 IFO=1THEN430 

470 IFR>2THENR=1 : Z=Z+V = POKEZ-V, 32 

430 M=PEEK£Z> 

450 i'fX=120THEN308 

500 IFX=207THENK= 1 : OOTO870 

5 1 IFX=208THENK=-1 : G0T037S 
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528 IFX=1S0THEHS60 
530 IFX=224THEN730 
540 IFX=228THEN598 
550 IFXO36THEN580 

560 BR-Bfl-1 :PQKES2,220:FORL=I5TO0STEP-1 

570 POKEHfi.. L : FORM= 1 TG288 1 NEXT : NEXT : GOTG220 

538 POKEZ , ft < R > ■ G0T0438 

593 V=l POKES 1,220 

680 I FNOT (. R=l 0RR-2 ; THEN630 

£10 Z=Z+2£ R-3 : V=2 1-0=1 

620 R<3>*I24:fl<4>*l23*GaTCi43B 

£30 IFNOT<R=3QRR=4:>THENS60 

640 2=2+22 'R=l ■ V=23 ■ 0=0 

650 fi < I > - 1 26 : fi < 2 ? = 1 08 : GOTO430 

660 P0KES1..228 

670 1 FNOT < R- 1 0RR=2 > THEH7S0 

680 Z=Z+1 ■ R=3 : V=-21 : 0= 1 

630 R < 3 ) = 1 23 J R < 4 > = 1 24 : G0T0438 

700 I FNOT < R=30RR=4 > THEN 730 

7 1 Z=Z+ t;R«i:*fi3! 0=0 

720 R<n = 126:R<2)=108^GOTO430 

730 POKES 1 t 220 

748 I FNOT CR-1 ORR-2) THEN770 

750 Z=Z-1 ■R=3-V=21 = 0=1 

760 fl<3)=124:fl<4)-123:GOTO430 

77S I FNOT % R-30RR=4 > THEN308 

730 z=Z~ 1 : R~ 1 i V=-23 = 0=0 

790 fi a > = 1 68 ■ fl f 2> = 1 26 : GOT0438 

300 Y=0: POKES 1,220 

810 IFH0KR=1GRR=2>THENS48 

820 Z=Z-22:R=3-V--21^0=1 

830 fi < 3 > = 1 23 : R 4 > = 1 24 ; GOTO320 

840 I FNOT < R=30RR=4 ) THENS7S 

850 Z=Z-22 = R= 1 : V=~23 = 0=0 

860 B< 1 >= 1 03 = ft <.2-j = 1 26 • GO TO 329 

870 POKES 1 1 200 : POKEZ, 32 = POKEZ+K 1 32 

880 IFZC73 1 2THENSC=SC+7 : GOTO920 

S9S I FZC7856THENSOSC+5 = G0TG92S 

900 IFZ-C7908THENSOSC+3 : G0T0928 

318 IFZ<7944THENSOSC+l 

320 POKE3S460+Z-76S0, 1 = FOKE33400+Z-7638+K, 1 
330 IFSC/328= INT < SC/328 ) THEN! 70 
348 IFV=1THENS08 

950 v*i 

968 IFN0T<R=1GRR^2>THEN998 

978 Z=2+22 = R-3 - V=21 : 0=1 

93 8 R < 3 > - 1 24 = fi < 4 > - 1 23 : GOT0328 

390 I FNOT < R=30RR=4 5 THEN 1 050 

1800 Z=Z+22 ! R=l : V=23 ■ 0=0 

1 R I O fi i i > ■-- 1 26 ■ fi < 2 > = 1 88 : G0T0328 



9 



1020 REN 

103U REM INSTRUCTIONS 
1040 REM 

1O50 POKE36S?9i42:PRINT"3ilW** VIC BRERKOUT *## 

106W PRINT"Mffi'OU MOVE WITH = 

1R70 PRINT"HM1CRSRt MOVE LEFT 

10S0 PRINT")fl*CRSR+- MOVE RIGHT 

1090 PR I NT". WASH IT ANY KEY 

1 100 GET A* : IFfi*-" "THEN 1 100 

1110 RETURN 

1120 REM 

1130 REM MACHINE CODE ROUTINE TO CHANGE 
1140 REM POSITION OF THE BAT 
1150 REM 

1 1 60 P0KE251 , 235 ■■ P0KE252, 31 
1170 POKE56,23:RUH11S0 
1130 F0RI=7424T074S8 
1 1 90 RE ADA = POKE I , A : NEXT : RUN50 
1200 DATR164, 251, 173, 197,0 
1210 DATA201,23,208, 15, 169 
1220 DATA249,56,237,5S,23 
1230 DATR197, 251, 240, 16,200 
1240 DATA 132,251,203, 11 ,201 
1250 DATA31..20S, 7, 192,223 
1260 DATA240..3, 136, 132,251 
1270 HRTA172, 53, 29, 135,59 
1 230 DRTA29 ,145,251,1 36 , 1 6 
129Q DATA243, 234, 169, 160, 141 
1300 DflTA223,31, 169,224, 141 
1310 DATA249, 31, 96, 4, 96 
1320 DATA 120, 120, 120,96,0 
READY. 
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FIND THE WORD 



DESCRIPTION 

Find The Word allows the user to input a word length, the 
computer will choose a word from the data statements of that 
length and put it in a matrix with a load of random letters. 
The user then has to find that word in the matrix. The word 
may be horizontal, vertical, or diagonal and may be 
backwards. If the word has not been found after three 
guesses, the computer will give clues by telling the user the 
first letter of the word, the second, etc until it can give no 
more clues without giving the whole word. 



EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 



After typing run, the program will ask if instructions are 
required, if the answer is yes then a page of instructions will 
be printed on the screen. The game will then start by asking 
how many letters in the word. The variable M chooses 
whether the word is diagonal or not. Then the guessing of 
the word begins. When the word has been guessed or the 
computer has run out of clues the score for that word will be 
printed along with the running total. 



PROGRAM STRUCTURE 



The lines of interest in this program are as follows. 
250-350 Input length of word. 
400-470 Choose a word of that length. 
510-900 Create grid and put the word somewhere in the 
grid. 

940-1030 Print the grid on the screen. 
1070-1420 Guess at word and check to see if the guess is 
correct. 

1470-1590 Guessed the word or no more clues available. 
1630-1640 Data for three letter words. 
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1680-1700 Data for four letter words. 

1740-1760 Data for five letter words. 

1800-1830 Data for six letter words. 

1870-1940 Print instructions. 



W Jf O W F* V I 

U Li L n R X O 

-JT t> V O F> X 

M 1 M R B J S 

Zi I X X O O O 

M J V M T V M 

M Jf l-J S O T 

,■ J* - ~ T~T T"S -*m> . -^i- -Jj- '_!. " m- JS_T 5S ^ ' II 

LKNGTH- f~, 



19 REM FIND THE WORD 

20 REM **************.************************'* 
36 REM 

48 S=l 

50 P=0:PDKE36873,42 

£0 T*="flECDEFGHIJKLMNOPQRSTUVWXVZ M 

70 DIMR*<8>8) 

80 PRINT-SB*** FIND THE WORD ***" 

*0 PRINT" DO VOU WANT INSTRUCTIONS ?" 

1 0S GETfi* : I Ffi$= " " THEN 1 00 

IIS IFA*="Y"THENGOSUB1870 

120 p=0 = G0SUB258 

138 GOSUB460 

140 G0SUB51S 

156 G0SUB94S 

160 GOSUB1070 

170 IFO=0THENGOTO150 

180 GOSLIB1470 

190 IFO=0THENGOTO1598 

200 GOSUB1380 

216 GOTO120 

220 REM 

230 REM INPUT WORD LENGTH 
240 REM 
250 PRINT 

260 M=INTCRNBa>*2>+l 
270 IFMOTHENGOTO250 
2SO IFM>2THENGOTO250 
290 PRINT 

300 PRINT"mD!HOW LONG IS THE WORD " 
310 PRINT "LENGTH C3 TO 6) ?*' 
320 G£TA$ : I FA* = " " THEN 32S 
330 L=VRL<fi*>:IFL<3THEH290 
34S IFL>6THEN290 
350 N=L+1 
360 RETURN 
370 REM 

380 REM CHOOSE fl WORD OF THAT LENGTH 
390 REM 
400 RESTORE 
410 REAM* 

420 IFLEN C A$) OLTHENG0T04 1 

430 Q=RND<7>*15+1 

440 FORX=lTOQ 

450 REflDW* 

460 NEXTX 

470 RETURN 

480 REM 

490 REM CREATE GRID OF RANDOM LETTERS 
SPG REN 

5ici ;<--m 
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520 R=INTtRND<l>#N+l> 

530 K= I NT «CRHB < 1 ) *N+ 1 ') 

54Q IFR<=2ORR>=N-iTHENGOTO580 

55S IFK<=20RK>=N- 1 THENGOTO580 

560 X=X+1 

570 G0T052P 

530 F0RX=1T0N 

550 F0RV=1T0N 

600 Q=INKRNDa>*26+l> 

61© G*=MID*a*,Q, l; 

620 R*^V>=Q* 

630 NEXTV 

646 NEXTX 

650 I FM=2THENG0T0S 1 G 

660 IFR<=20RR>=H-1 THENGOTO740 

670 IFK<=2THENKR=1 

680 IFK>=N-ITHENKR=-1 

690 F0RX=1T0LEN<W*I> 

7G0 R* < K, R.J =M ID* < W* , X, 1 ; 

710 K=K+KR 

72G NEXTX 

730 RETURN 

740 IFR<=2THENRR=1 

750 IFR>-N-1THENRR=-1 

76y FORX=lTOLENaj*;< 

770 R*(K, R>=MID*<W*,X, 11 

780 R=R+RR 

730 NEXTX 

300 RETURN 

810 I FR<=2THENRR= 1 

328 IFR>=N-1THENRR=-1 

330 I FK<"=2THENKR= 1 

840 IFK>=N-1THENKR=-1 

850 FORX= 1 TOLEN ( N* ; 

368 R# < K , R > =M I Ii* i W* , X .- 1 > 

870 K=K+KR 

830 R=R+RR 

899 NEXTX 

50tJ RETURN 

910 REM 

920 REM PRINT GRID ON SCREEN 
938 REM 

'340 PRI NT" r3^========== : ======== 

950 FORX= 1 TON : PR I NT " "; 

963 F0RV-1T0N 

97S PRINTR*<X,V)j" "! 

980 NEXTV 

990 PRINT 

1000 NEXTX 

1 f 1 1 PRINT " ===================[J| 

1020 print"klength=";l 
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1030 RETURN 
J 940 REM 

1056 REM GUESS AT WORD 
I860 REM 

1070 PRINT")«WHflT IS THE WORD ? 
1080 INPUTA* 
1096 P=P+1 

1 1 m I Ffl* =Wf THENGOTO 1 300 

1110 PPINT")!lSORRV BiaMRONGRS!" 

1120 I F ( P-2 > =LTHEKGOTO 1 240 

1 1 30 IFP>2THENG0T01 1 76 

1140 PRINT ".WOT VERV GOOD" 

1 i 50 0=0 ■■ FORKK= 1 TO3060 - NEXT 

1160 RETURN 

1170 H*=LEFmW$,P-2) 

11 30 PRINT"Wt'0U NEED HELP." 

1190 IFP>3THEH1220 

12O0 PRINT "SJTHE FIRST LETTER IS" :PRINTH$ 
1210 G0T01150 

1220 PF:INT"WTHE FIRST" ; P-2; "LETTERS" = PRINT"ARE " 00 
1230 GOTO 1150 

1 240 PP I NT " WUROHG , VOU DID" : PRINT" HOT GET THE WORD 

1250 PRINT "RIGHT. 

1260 PR I NT "MIT WAS wSL";\A*"M 

I27y FORI=1TO3000:NEXT 

1230 0=-l 

1290 RETURN 

1300 PRINT 

1310 PRINT"Wsn"HflT IS IT 

1320 PRINT".Wt'OU GOT IT IN"P 

1330 PRINT"TRV" 

1 340 IFP> 1 THENPR I NT" HTR I ES " 

1350 FORI=1TO300S:NEXT 

1360 0=1 

1370 RETURN 

1330 S=S+1 

1390 RR=0 

1400 KR=0 

1410 P=0 

1420 RETURN 

1430 REM 

1440 REM GUESSED THE WORD OR HO MORE 
1450 REM CLUES AVAILABLE 
1460 REM 
1470 PRINT 

!4S@ T=T+(L/P>*<L/P>*M 
1435 2=1 NT < <. L/P ) * < L/F > *M > 

1490 PR I NT 'TITHE SCORE FOR THIS" : PR I NT" WORD : " iZ 

15O0 PRINT"W<MAXIMUM SCORE" : PRINTERS" ; INT(L*L*M> ; "ID " 

n PRIHT "WTOTAL SCORE" INT (T/S) 
r.v-O PRINT "WfFIHOTHER GO ? 
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1530 GETR$ : IFfl$=" "THEN1539 
1540 PRINT 

1550 IFHf="V"THENl£0 
1560 IFR#="N"THEN1590 
1570 PRINT 11 Wt' OR N PLEASE.Tn 
Isrh mTOi^ofl 

1590 PRINT "ST ; ; POKE36S79, 2? ■ END 
1600 REM 

1610 REM THREE LETTER WORDS 
1620 REM 

1 630 DRTR333 , T I N , GET , THE , S I T , CRT , DOG , ONE , TWO 
1 640 DRTRS I X , TEN , F I T , EET , SET , E I G .. ERD 
1650 REM 

1660 REM FOUR LETTER WORDS 
1670 REM 

1 630 DRTA4444 , FOUR , F I VE , COOL , MAKE , HOLE , POSH 
1 690 DRTflN I HE, CLRP , COLD , GOOD , YOUR , WHRT , READ 
1 700 DRTRVRST , LRMP .. DEUL 
1710 REM 

1720 REM FIVE LETTER WORDS 

1730 REM 

1 740 DATA55555 , CH I PS , GRERT , CLERR , GLASS, MAKER 
1 750 DRTRSPOOL , SLEEP , EERST , THREE, SEVEN , STOOL 
1760 DRTAEIGHT, PLANT.. RRDRR, RADIO.. WATER 
1770 REM 

17S0 REM SIX LETTER WORDS 
17'^0 REM 

1 SO© DRTH6S66S6 , RRCTI C , GUI TflR , M INUTE , M I DDLE 
1310 DATAPISTOL, ANIMAL.- TOWERS, PERMIT, FIRING 
1 826 DATflDRRGON , ROBOTS , ROCKET , MOSR I C , MEMORY 
1330 DATAERNDIT 
1340 REM 

1350 REM INSTRUCTIONS 
I860 REM 

1370 PR I NT "^INSTRUCT IONS : 

1880 PRINT"*FIND THE WORD IS R 

1330 PRINT"M3RME WHERE YOU HAVE 

1300 PRINT "WTO FIND A HIDDEN WORD 

1910 PRINT "WIN A GRID OF LETTERS 

1320 PR I NT " .OX EAR ? 

1 330 GETR* ■ IFflf = " " THEN 1330 

1940 RETURN 

READY. 
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SPACE PIRATES 



DESCRIPTION 

In this game, the player is in control of three lazer gun bases 
at the bottom of the screen. The three bases are fired with 
the use of the keys A, S, D respectively. The space pirates go 
across the screen in groups of five and the player has to 
shoot them out using the lazer guns. If the space pirates get 
past the bases, they start to destroy the cells on the right 
hand side of the screen. When they have passed through the 
cells they appear on the left side again but lower down the 
screen. When the space pirates have all been annihilated, 
another set of pirates appear but in a different form. The 
game is over when all of the cells have been destroyed. 
This program makes good use of sound and user definable 
characters. 



EQUIPMENT REQUIRED 

This program works on an unexpanded VIC-20 but will not 
work with expansion. 

RUNNING THE PROGRAM 

After typing run, the program will display which bases are 
fired by which keys and will pause while the character 
generator is being moved. The game will then start. 

PROGRAM STRUCTURE 



Lines of interest in this program are as follows. 

80-120 Display instructions. 

130-140 Limit top of memory. 

150-220 Move character generator and set up other 

characters. 
230-570 Play the game. 
580-620 Input from keyboard. 
880-960 Change the character for the space pirates. 
1040-1180 Game over, play again ? 
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Id REM SPACE PIRATES 
20 REM 
3@ REM 

40 P0KE36378, 15 

50 1 2=PEEK < 329 > : I 9-PEEK < 826 > 

60 IFI9O0THEN133 

79 VI =36364 : PGKEVI+5, 240 : POKEVI+1 5, 21 9 

74 REM 

75 REM INSTRUCT IONS 

76 REM 

30 PRIHT'TWSPfiCE B UCCANEER S" 

36 PRINT" " 

100 T$="J»n - EASE 1 FIRE" =G0SLiE 1029 
110 T*= "KWS - EASE 2 FIRE" ■" GOSUB1020 
12S T*="j!*tD - EASE 3 F I RE " : GOSUE 1 029 
124 REM 

REM LIMIT TOP OF MEMORY 
REM 

13G P0KE56, PEEK<56)-2 : PGKE52, PEEK<56>-2 
140 POKES 1 , PEEKC55) : CLR 

144 REM 

145 REM MOVE CHARACTER GENERATOR 

146 REM 

1 5u HT=32763 : VI=36364 : CC=256*PEEKC52>+PEEK<51 > 
1 60 FOR r =0TO5 1 1 : POKECC+ 1 , PEEK < ET+ 1 ; : NEXT 
170 FORI=464T0496=REflDJ 
1 30 POKECC+ 1 .. J : NEXT : POKEV I +5 , 255 
130 IiATA123,66,36,0,0,36,66, 129 
20Q HfiTA24,24,24,24,,60, 126, 126,255 
210 HATA64,32,31,25,57, 127,238 
220 ItflTA56,2,4,248, 152, 156,254,119,23 
224 REM 



225 
226 REM 

230 I2=PEEK<829> ■ I9=PEEK(326) :S=PEEK<827>*25 

240 I F 1 9>0THENS=S+ < PEEK < 826 > - 1 > *6306 

250 S2=5 : GOSUBS70 : V=25 

26U T*="MOTHERSHIP-<=-?MVSTERV" 

270 T2*="#l PIRATE-e-25" 

230 IFI9=0THEHI2-50 

230 POKEV 1 + 15, 8^ PRINT" sOSCORE " S 

300 PR I NT 11 " ■ POKES 1 05 , 55 

310 PRINT:PRINT:F0RI=1T05 

320 PRINT"H3 r T T T*' : PRINT 

330 NEXT : P0KE3S99 , 59 • POKES1 02 , 53 

340 Z< 1 >=7730 : Z>;'2;=7334 

350 Z C 8 > =7378 : Z < 4 >*7922 : Z<S > =7966 

368 pr i nt " mmmMmmmmaiiumLP i rate bounty v 

370 F0RT=1T05 = XZ<T>*1 . 25+RHBCTI ) : NEXT 

330 FORK- 1 T05 ■ I FI 3< K > = 1 THENPOKEZ < K > , 32 : G0T0530 

390 X=RNE < K>- I FS 1 =5THENGOSUE370 



480 IFI4=0flNDRND<4X.02THENI4*l ^BU=7724 

4£g M&mti&M - POKEBU+1 POKEBU,* 
430 I FNOT CI 4= 1 RNDBU>=7743 > THEH450 
440 14=0 : POKEBU, 32 POKEBU+1 , 32 

459 IFXO.5THEN480 

460 POKEZ ( K > > 32 : Z < K > ■ =Z< K > +XZ < K ) 
470 POKEZ < K > , : POKEZ < K > +30720 , 5 
4S0 GOSUB580 

490 IFPEEK<Z<K>+1 >O79THEN510 

500 12*12-1 :PRIHT"»WMiMMiCELLS "I2"ll " 

510 IFI2O0THEN1040 

520 IFZ<K»=8693THEH1040 

530 NEXT ■ GETfl* : IFR*="Q"THEMii70 

54u GOTQ.J80 

550 PQKE36869 , 240 : PGKE56, 30 : P0KE52, 30 
560 CLR:PRIHT".Ti*ISCflNNIHG SECTOR" 
57© PR I H T " MUSThRDhTE "TI$ ; RUH 

574 REM 

575 REM INPUT FROM KEVBOfiRB 

576 REM 

580 Z=PEEK<197> 
590 I FZ-1 7THENC=8877 : GOSUB630 
600 IFZ=41 THEHC-8080 ■' GOSUB630 
610 I FZ= 1 8THEHC=S083 ■■ GOSUB630 
620 RETURN 

630 MM=32 ■■ FORI=C-22TOC-330£TEP-22 

640 POKEI +22, MM = IFFEEK< I-22>=0THEN710 

650 MM=PEEK(I-22j : IFMM=61ORMH=60THENGOSUBS20 

660 POKE I. -33 

670 IFEU=I -22THENP0KE 1*22-1 =C-33S : GOTO7Q0 

630 FORHE=253TO250STEP- 1 

690 F0KE36S75 , EE ■ NEXT = P0KE36S75 , 

7O0 NEXT : POKEI +22, 32 : RETURN 

710 P0KE36875, : POKEI .■ 32 

720 POKEI -22 , 58 - POKEI +36698 , 2 

730 FORDE=200TO255 ; P0KE36377, HE 

740 NEXT : P0KE36877, : POKE I -22, 32 

750 S=S+V: 31=81+1 : PRINT 11 3SC0RE"S : I=C-352 

760 I3<K)=1 =S2=S2+1 = IF3>=12000THENS=S-12@6 

770 IFS1 /20= I NT C S 1 /2& ) flNDS 1 O0THEN970 

730 IFS2O5THEHS10 

790 G0SUB87Q : V= V+25 = FOR J= 1 T05 

800 I3< J)-0 : NEXT : G0T0230 

810 G0T0630 

32 O V= I NT < RND < 7 > *4+ 1 ) #50 ■ POKEBU+ 1 , 32 : POKEBU , 53 

830 F0RBE=1 50TO1 SO : P0KE36877, BE 

840 NEXT : P0KE36S77, @ = 14=0 : POKEBU, 32 

350 S=S+V - PR I NT " BSCORE" S ■ POKE I > 32 : RETURN 

860 I FS 1 /20= I NT < S 1 /20 > flHDS 1 00THEN970 
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878 I FS205THENRETURN 

880 FORI=0TO7 

898 REflBJ 

900 POK£CC+I,J 

910 NEXT: 52=0 

929 HflTfll 02 , 1 02 ,68, 23 i , 1 89 , €8 , 1 02 , 66 , 66 
938 DftTfl24 , 60, 126; 98, 126, 90. 129 
948 BRTR66, 8, 68, 189, 182, 189, 24, 36, 24 
958 HRTR68, 126, 159, 254, 62, 34, 34, 102 
960 RETURN 

978 P0KE826, 1--P0KE329,I2 
988 rFS-6300<=0THEN1010 

999 P0KE827, (S-6388V25 

1000 P0KE826, PEEK < 826 )+l : GOT0550 
1018 POKE 827 , S/25 = GQT0558 

1820 FORI=1TOLEN<T$) : PRlNTf'1IB*<T$, 1,1); 
1 030 FORDE=1TQ70 : NEXT = NEXT ; PRINT -RETURN 
1S34 REM 

1835 REM CELLS DESTROYED, GAME OVER 

1836 REM 

1 048 POKES 1 02 , 58 : POKES 1 05 , 58 : POKE8099 * 53 

1050 PRINr'^WftMOWttttttStttttttfttr 1 

106O PRINT^MBNtttaCELLSW 

1 870 PR I HT " WMWDESTROVED* " 

1880 PRINT">MII#tt#########" 

1098 FORDE=255TO1203TEP-1 

1 1 yy P0KE36S77, HE : F0RD=1T038 ■ NEXT = NEXT 

1110 POKE36877,0:pRINT"MNOTHER GO?<'tVN)" 

1120 P0KE36879, 76: POKE 198,8 

1 130 GETfl$ = IFfl$=" "THEN1 138 

1148 IFR*O H N"THEN1160 

1 1 58 PQKES26 > S : P0KE827, 8 : P0KE829 , 8 = GOTO 1 1 70 

1 1 68 P0KE826 , 8 = P0KE829 , 8 : P0KE827 , 8 = G0T055C 

1178 POKESe^O^PRINT'TH" 

1 1 88 P0KE36S69 , 248 : P0KE36379 , 27 = CLR END 

REfiDY. 



VIC VIC 



DESCRIPTION 

VIC VIC program demonstrates how the display can be 
manipulated to create interesting effects by changing some 
of the control registers. First printing a grid of colours and 
then by manipulating the control registers the display is 
'pulled' into the centre of the screen and then back out. A 
coloured VIC appears on the screen and the same thing 
happens. This will continue until stop/reset is hit. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

Type run and watch the effects produced by the program. If 
the program is stopped, the screen will stay as it was when 
stopped until stop/reset is pressed. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 
40-150 Print coloured grid on the screen. 
160-330 Print large 'VIC on the screen. 
340 Go back and repeat. 

360-430 Manipulate the registers for the coloured grid. 
440-510 Manipulate the registers for the large 'VIC 
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10 REM VIC VIC 

i7 < ' l H ^\ ^ \*\ '^t ^ ^ ^-^^ ^ ^ ^ ^ ^* ^ ^ ^ ^h^4t i 1 ^ "t" ^t- ^ ^ ^ '^t' ^> 

36 REM 

4i3 PR I NT "T 1 ; -F0RI = 1T05 



5U 
£0 


PRINT":* 
F0RI=1TG4 


s| 








"; : NEXT I 


76 


PRINT" Si 


Ei 


S 


m 


■ 


= NEXT I 


80 


F0RI=1TG5 












90 


PRINT" Sa 


4 


a 






" : : NEXT I 



100 F0RI=1T04 
110 PRINT" &'f Ei 
120 F0RI=1T04 
130 PRINT" SB d 
140 PRINT" Sa =) 
150 PRINT"^:« 
160 FGRI=0TG4 
170 PRINT":-)* 
130 PRINT" SB =1 fl 
190 PRINT" :4S z a 
200 PRINT" EH =< 
210 PRINT";« * A 
220 PR I NT "a* a =J ffl 

239 print" aa a st a 

240 PRINT" £9=4 fl ^ fl 
250 PRINT" S3 4 fl 
268 PR I NT "fl^ J S 
270 PRINT" a 4 
230 PRINT" :« a * 
293 PRINT" a^ d 
300 FORI=0TO3 
310 PRINT" : NEXT I 
320 PRINT" as 3"; 

330 GOSUE440 
340 GOTO40 
350 END 

360 FORI-IT022: F0KE36366, 123+1 = PDKE36367, 2+2*1 

373 P0KE36364, 34-1 : PGKE36365, 32-2*1 = NEXT I 

330 FORI=0TG255 = NEXT I : R=INT(RND< 1 >*7> 

390 P0KE36S79j 25+R : FORI=0TO255 : NEXT I 

400 F0RI=22T01STEP-1 :P0KE3£366 J 123+1 

410 PGKE36G67, 2+2*1 

420 P0KE36364 > 34-1 : P0KE36365, 32-2*1 

430 NEXT I -RETURN 

440 FGRI=1T022 : PGKE36366, 12S+I : P0KE36867, 2+2*1 
453 P0KE36364, 34-1 :P0KE36365, 32-2*1 : NEXT I 
463 FOR I =0TO399 : NEXT I : R= I NT < RHD < 1 ) *7 > 
47S PGKE36373,25+R ■ FCRI=GTG999 : NEXT I 
430 F0RI-22T01STEP-1 ■P0KE36366, 12S+I 
493 P0KE3£367..2+2*I 

503 P0KE36S64..34-I = FGKE36365, 32-2*1 

513 NEXT I = RETURN 

RERDV. 



", : NEXT I 



"i "NEXT I 
S" : ■ G0SUE363 



NEXT I 
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BIRDS DEMO 



DESCRIPTION 

This program is a demonstration of user defined characters 
and real time animation. Displayed on the screen is a sea 
view— a cloud in the top right hand corner and sea with 
waves on the lower half of the screen. Attractively coloured 
birds are soaring over the sea. 

As the display stops moving and a tune begins to play, a 
missile is fired from under the sea and shoots down a bird 
before beginning all over again. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

When loaded type RUN and watch the display appear on the 
screen. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows: 
50-80 Display introduction to program. 
130-160 Put character white in every position on the 
screen. 

170-190 Set character to a space. 
240-320 Change character 6. 

340-420 Put colours yellow, white and blue for three 

birds on the screen. 
430-510 Put birds on the screen. 
520-590 Change character 2. 
610-700 Display sea, birds and cloud. 
740-790 Change character 5. 
800-980 Change characters 1-7 using data at end of 

program. 
1290-1450 Character data. 
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10 REM BIRDS HEMG 

20 REM ******#*********•**********************•** 

39 REM 

40 V I r=9* 1 6 13 : POKE V I C , 1 1 = PR I NT "IT 1 : PR I NT 
50 PR I NT "31 DEMONSTRATION OF" 

60 PRINT" USER-DEFINED" 

70 PRINT" CHARACTERS AND REAL-" 

80 PRINT" TIME ANIMATION.: " 

90 FORI=lTO600e:HEXT I 

180 VM=7630 

110 CNVE- 3840O 

120 CM=VM-512 

130 FOR fi=0 TO 506 

140 POKE VM+fl.0 

150 POKE CNVB+H, 1 

160 NEXT A 

170 FOR H=0 TO 7 

ISO POKE CM+R..0 

190 NEXT A 

2O0 FOR fl=0 TO 7 

21G POKE CM+56+A, 16 

220 NEXT A 

230 POKE VIC+5,255 

240 POKE CM+62,56 

2-0 POKE CM +43. .24 

260 POKE CM+49, 153 

270 POKE CM+50,90 

230 POKE CN+51,60 

2*0 POKE CM+52,90 

300 POKE CM+53, 139 

318 POKE CM+54.60 

320 POKE CM+55,126 

330 F0RTT=1T05 

340 POKE CNVE+30,7 

'^0 POKE CNVE+31j7 

360 POKE CNYB+32,7 

370 POKE CNVE+67, 1 

380 POKE CNVE+63, 1 

390 POKE CNVE+63, 1 

400 POKE CNYE+205,6 

410 POKE uNYB+206,6 

420 POKE CNVE +207.. 6 

430 POKE VM+30.. 1 

440 POKE VM+31,2 

459 POKE VM+32,3 

463 POKE VM+67,1 

473 POKE VM+68,2 

430 POKE VM+69,3 

490 POKE VM+205, 1 

ma POKE VM+206,2 

'~10 ! V-\ VMK::i,V: 
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520 POKE CM+16, 126 
530 POKE CM +17.' 60 
540 POKE CM+13.. 153 
550 POKE CM+13.- 255 
560 POKE CM+20,255 
570 POKE CM+2 1,126 
5:-iA POKE CM+22,24 
530 POKE CM+23,24 
60B POKE VIC+15,233 

1 PR I NT " ilE!l?lt!l«!!HIl!ll!l?Il!l5l?Ifl'!lPM?3" ; 
620 PRINT l, kflCRCRCRCflCfiCflCflCRCRCflC M .: 
630 PRIHT"SS3flCflCfl5@e@CflCfifi@CFlC@HC" .: 

^40 PR i ht " kaaflcaaacRCRCRaRCRcaaa 11 ; 
650 PR i nt " BsaeeflCflCflceaRCRCiicRceea 11 .; 
660 priht" wcr c a a c h c@r c r c r a r ca r c r a " ; 
670 pRiNT"S83aflCRCflaacflcaRCHaa^HC" .; 

«S0 PRINT ,l ^rS?lBl'MS9ttli^BCWISBBI>i^EC;i^ISaKaRBC " 

700 PRINT"EDDIiDDj«IIBIBEIiDDBMiBaEBI)jtilE" 

710 FOR fi=0 TO 3 

720 POKE uN+32+R,255 

730 NEXT R 

740 POKE CM+42, 127 

750 POKE CM+43, 127 

760 POKE CM+44,63 

770 POKE CM+45,31 

7S0 POKE CM+46,15 

730 POKE CM+47,3 

300 FOR Z=i TO 5 

310 RESTORE 

620 FOR R=l TO 7 

830 FOR E=0 TO 7 

340 PERU C 

350 POKE CM+8+E,C 

360 PERU C 

370 POKE CM+24+B,C 

330 NEXT B 

330 NEXT fl 

333 FOR fl=l TO 7 

310 FOR E=0 TO 7 

320 RERD C 

330 POKE CM+3+E,C 

340 READ C 

350 POKE CN+24+E,C 

360 NEXT E 

373 NEXT R 

380 NEXT Z 

330 FOR R=l TO 12 

1000 REfiEE : REfiDC 

1010 POKE VIC+12.B 

1020 POKE VIC+14,15 
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1039 FOR X«1T025*C=NEKTK 

1040 FOR V=14 TO STEP-1 
1050 POKE VIC+14..V 

1660 NEXT V 
1070 READ C 

10S0 FOR X=l TO 25#C:NEXTX 

1090 NEXT A 

1100 POKE VIC+12,8 

1110 PRINT" iSWSKWWM " j 

1120 FOR X= 1 TO 50-NEXT:pRIHT ,, klFr3"; 
1130 POKE VIC+14/15 
1140 FOR V=l TO 7 
1150 GOSUB 1260 
1160 NEXT 

1170 FRINr'HMFe"; 

1180 FOR X=l TO 20--NEXTX:PRIHT"IMEee" 
1150 POKE VIC+13,178 

1200 FOR V=15 TO STEP- 1 : POKEV I C+ 1 4 , V 

1210 FOR X=l TO 30: NEXT X=NEXT V 

122U POKE VIC+13,0 

1230 FOR X-l TO 2@:NEXTX 

1240 FOR X=l TO780:NEXT 

1250 NEXTTT = FOR I=1TQ6000 ; NEXTI ■ P0KE36369* 240 : RUN 

1260 PRINT-MamiC"; 

1270 POKE VIC+13,240+V 

12S0 FOR X=l TO 45: NEXT: RETURN 

1234 REM 

12S5 REM CHARACTER DATA 

1290 DRTA0,0, 8,0, 0,0,8,0,3, 192, 15,240, 112, 14, 128, 1 
1300 DATfla, 0,0, 0,0,0, 1, 12»-.'3j 192,60,60,192,3,0,0 
1310 DATA8,0, 0,0, 8,0, 1,128,15,248,240,15,8,0,0,0 
132U DATAO, 0,0,0, 1,123,255,255, 1, 128,0,9,0,6,0,0 
1330 DATAO, 0,0, 0,240, 15, 15,248, 1 , 128,0, 0,0, 0, 0, 
1340 DATR0,0, 192, 3, 60, 60,3, 192, 1 , 128, 0,0, 8,0,0, 
1350 DATA128, 1,112, 14, 15,240,3, 192, 0,8,0,8,0,0,0,0 
1368 DATA 128, 1, 112, 14, 15, 240.. 3, 192.0,0,0,8,0,0,0,0 
1378 DATAO, 0, 192,3,60,68,3, 192, 1 , 128, 0, 0, 0, 0, 0, 
1 338 DATA8, 0, 0, 8, 248 , 1 5 , 1 5, 240, 1 , 1 28 , 8, 0, 0, , , 
1390 DATAO, 0,0,0, 1, 128,255,255, 1, 128, 8,0, 0,0, 0,0 
1400 DATAO, 0,0, 0,0,0, 1, 128, 15,240,240, 15,0,0,8,0 
1418 CATR0, 0,0, 0,0, 8,1, 123,3, 192,60,69, 192,3,0,0 
1420 DATAO, 0,0,0,0, 8, 8, 0,3, 192, 15,240, 112, 14, 123, 1 
1430 DATFi 213,8,2,217,8,2,204,3,1,198,1,1,191-2,1 
1440 DATA179,3,2, 178,8,2, 173,4, 1 
1458 DATA191,1, 1,193,1, 1,213,3,1,217, 15,0 
READY. 



29 



RHINO 



DESCRIPTION 

The aim of the game is to make your way through the jungle 
while avoiding wild and dangerous rhinos. A map of the 
jungle with the position of the trees, the house and the 
players current position are displayed attractively on the 
screen. 

The opponents — the player and the rhinos — are hidden from 
each other by dense jungle. Once the rhino has seen you, it's 
position is/are (depending on haw far into the game the 
player has ventured) displayed and then the race is on. The 
rhino will charge, moving one step to each of the players. It is 
up to the player to escape amongst the trees; seemingly an 
easy thing to do, but rhinos are very smart critters. If a rhino 
catches up with the player, its wham: and the game is lost. 
Each time the player outwits the rhinos more come to their 
aid, until the player has to avoid a maximum of 20 such 
beasts. 

Without giving too much away a tip for the player is to try to 
trap the rhino in a downward facing U-shaped group of trees. 
The player will be able to move diagonally out of the area but 
the rhinos remain feeding on their frustration. 

EQUIPMENT REQUIRED 

Basic VIC-20 with 3K expansion. 

RUNNING THE PROGRAM 

This program will only work with 3K expansion if all the REM 
statements are omitted. 

After loading type run and follow the instructions. 
PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 
120-130 Limit the top of memory and dimension arrays. 
200-3170 Play the game. 
770-1090 Set up display. 
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1130-1400 Move the man in the required direction. 
3210-3270 Set up graphics characters. 
3310-3390 Character data. 
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10 REM RHINO 

29 REM **************************************** 

30 REM 

40 REM THIS PROGRAM WILL WORK WITH 3K 
50 PEM EXPANSION, PROVIDED THE REM 
SO REM STATEMENTS ARE LEFT OUT 
70 REM 

30 POKE 900,1: REM # OF RHINOS 
90 REM 

160 REM LIMIT TOP OF MEMORY 
110 REM 

12* POKE 56, PEEK < 56 >- 1 :CLR: POKE 56,PEEK<5S>+1 
130 DIM H < 2 ) , R < 20 , 2 > , V £20) : POKE 56 , PEEK < 56 - 1 
140 GOSUE 32 1 O : POKE 36369,255 
150 PRINT "3" : POKE 36879,42 
160 GOSUE 730 
170 REM 

ISO REM PLAY GAME 
190 REM 
2O0 NF=@ 

210 X=H<1) : Y=HC2) 
2-'@ fi$ =lli C" 

230 FRINT"S£WOUR MOVE ■" 

240 GET N^IF Mf="" THEN 240 

256 PRINT "3d 1" 

260 M=VflLCMt> 

270 IF M=6 THEN 450 

230 GOSUE 1410 

290 IF WIN>0 THEN 690 

300 GOSUE 1S60 

310 Ha)=X^H(2)=V 

323 RN=G 

330 IF NF-C PEEK < 900 ) THEN GOSUE 172G 

34B IF RN-0 THEN GOSUE 26O0 

350 IF NIN>0 THEN520 

360 IF RH=0 THEN 210 

370 FOR 1=1 TO 20 

330 IF Va>=0 THEN 21© 

390 RD=7639+22*R ; 1 , 1 > +R < 1 , 2 ) 

40O POKE HD, 62 ; POKE FiD+30720, 1 

410 NF=NF+ 1 

420 NEXT I 

430 GOTO 210 

440 END 

450 POKE 36369, 240 : PRINTS YOU RESIGN " 
460 GOTO 470 

470 POKE 56, PEEK C 56> + 1 = POKE 36369,240 

430 INPUT" sffiO YOU WfiHT ANOTHER GO";R* 

490 IFRIGHT*( R$, 1 >0"N" ANBRIGHT*(R* , 2) O "H0"THEN5l0 

500 PRINT 11 2" : POKE 36879 , 27 : END 

510 CLR:GOT0 120 
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520 PRINT 11 3" 

539 FOR 11=1 TO H(l)-2 

543 PRINT "JO" ; 

550 NEXT II 

560 FOR 11=1 TO H<2>+3 

570 PRINT"*!"; 

530 NEXT II 

590 PR I NT "HI": 

£RR FOR 1=1 TO 4 

6 1 y PR I NT " IBI" CHR* < 68- 1 J ; 

S2F1 FOR J=l TO 508 = NEXT J 

630 NEXT I 

640 T-TI 

650 IF TI-TO20 THEN 650 
660 PRINT "3" .: 
670 WIN-0 
6 mm ROTO 47Q 

690 PRINT "M VOU WIN" , 
790 IF PEEK ','900X28 THEN POKE 988, PEEK<90LO + 1 
710 WIN-8 
720 OOTO 470 

730 PRINT'^EWTHERE ARE "PEEK<900> " RHINOS"" 
740 REN 

758 REM SET UP DISPLAY 
768 REM 

770 FOR 1=1 TO 21 

7S0 fl*="" 

790 FOR J=l TO 21 

8A0 P= INKRND O :-' + .2> 

R10 IFP=1 THEN fl«=fl*+"Bi?*':GOTO 838 

S20 A*=A:f+"d ■" 

830 NEXT J 

340 PR I NT A* 

658 NEXT I 

868 PR I NTTAE C 7 > J " B" 

370 PRINTTAE(7> .: "3 ■" 

338 PRINTTAEC7>J"a 9K=*3 H" 

390 PR I NTTAE < 7) J " S 1" 

908 PR I NTT HE (7) .: " 3 ■" 

410 PRINTTAEC 14) ; ":?MHiM«^M«S'' 

92m PRINTTRB<13>; "A B" 

938 pRINTTABC13>;"a "frCM S3"; 

940 H<1 >=22 = H';2>=1 1 

950 FOR 1=1 TO PEEK; 900) 

960 V=INT<RND<1>#30)*5 

*»7R X=INT<RND{l>#8>+8 

980 Ra, l)=X:Ra,2>=V 

990 D=PEEK< 7639+22*X+Y> 

1800 IF D=63 THEN 568 

1O10 NEXT I 



1029 FOR 1=1 TO 20 

1030 V(I)=0 
1O40 NEXT I 
1050 RETURN 

1060 IF flBS(M-5»4 THENM=5 
1070 Cf=" " 

1089 GOSUE 3110 

1090 Ct-=ti* 
1100 REN 

1110 REM MOVE MfiN 
1120 REM 

1130 ON M GOTO 1150,1130,1210,1240,1270 

114Q IFM>5THEN ON M-5 GOTO 1290,1320,1350,1330 

1150 X=X+1 = V=V-1 

1160 GOSUE 3110 

1170 RETURN 

1130 X=X+1 

1130 GOSUE 3110 

1200 RETURN 

1213 X=K+1 : V=V+1 

1223 GOSUE 3110 

1230 RETURN 

1243 V=Y-1 

12?=!fi GOSUE 3110 

1269 RETURN 

1270 GOSUE 3116 
1230 RETURN 
1230 V=V+1 
1330 GOSUE 3110 
1313 RETURN 
1320 tt=X-l ■ V=V-1 
1330 GOSUE 3110 
1340 RETURN 
1350 X=X-X 

13S0 GOSUE 311S 
1370 RETURN 
1330 X=X-1 : V=V+1 
1330 GOSUE 3110 
1403 RETURN 

1410 ON M GOTO 1430,1430,1520,1553,1530 

1420 IFM>5THEN ON M-5 GOTO 1530,1620,1650,1630 

1430 IF X=23 OR V=~3 THEN M=0: RETURN 

1 440 flIi=7633+22+ <K+ 1 J + ( V- 1 > 

1450 T=F'EEK':.HlO 

14S0 IF T=63 THEN M=S 

1470 IF T=S1 THEN WIN=2 : M=0 

1480 RETURN 

145G IF K=23 THEN M=0 ; RETURN 
1503 flB=7639+22#^+l)+V 
1513 GOTO 1450 

1523 IF X=23 OR V=17 THEN M=0 : RETURN 
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1530 fiD=7639+22-*':X+l )+V+l 
lFi4fl PuTO 1458 

155G IF V=-3 THEN M=Q - RETURN 
1560 RD=7633+22#X+Y-1 
1570 GOTO 1459 
1580 RETURN 

159S IF V=17 THEN M=0 : RETURN 
1506 RE=7633+22*X+V+1 
It" 10 GOTO 1450 

162* IF X=3 OR Y=-3 THEN M=8 : RETURN 

1 630 RD=7639+22# 0<- 1 > +V- 1 

164G GOTO 1450 

1650 IF X=3 THEN M=G : RETURN 

1660 Rn=7633+22*(X-1 >+V 

1670 GOTO 1450 

1630 IF X=3 OR V=17 THEN M=G : RETURN 
1690 RD=7633+22#CX-1 >+V+l 
1700 UOTO 1450 
17 IS RETURN 

1720 FOR I=HF+1 TO PEEK { 380 > 

1738 IF V(I)=1 THEN 2480 

1740 XR=R<I, 1 ) ■■VR=Ra.-2) 

1750 XH=HC1> =VH=H<2> 

17G0 IF <XR-XH>0<VH-YR> THEN 1340 

1770 IF XH<XR THEN I860 

1780 N=XH-XR-1 

1730 FOR J=l TO H 

1 380 RIi=7633+22*(XR+J>+VR-J 

I31U Ii=PEEK''HH> 

1A20 IF D=63 THEN 2430 

1830 NEXT J 

1840 RN=1 

1850 V < I > = 1 :G0TO 2430 

I860 N=XR-XH-1 

1378 FOR J=l TO N 

1388 RIi=7639+22*<XR-J)+VR+J 

1330 D=PEEK<RD> 

1908 IF E=63 THEN 2488 

1310 NEXT J 

1320 RN=1 

1930 V<I>=1 :GOTO 2438 

1948 IF VROVH THEN 2120 

1950 IF XH<XR THEN 2040 

I960 N=XH-XR-1 

1S70 FOR J=l TO N 

1 <5S0 RD=7633+22* <. XR+ J> +VR 

1930 D=PEEK<flD> 

20Rfl IF H=63 THEN 2430 

2O10 NEXT J 

2820 RH=1 

20:-:R V(I)-1 : GOTO 2480 



2040 N=XR-XH-1 

2956 FOR J=l TO H 

2860 Hli=7639+22*;XR-J:'+VR 

2070 D=PEEK<fttO 

2RftS IF H=63 THEN 2430 

2090 NEXT J 

2100 RH=1 

2110 V< I -' = 1 : GOTG 2430 

212M IF ^H-XR)O(VH-VR) THEN 2300 

2130 IF XHOIR THEN 2220 

2140 N=XH-XR-1 

2150 FOR J=l TO H 

2 1 60 FID=7633+22# C^R+J ) + VR+ J 

2170 D=PEEK<flD> 

2136 IF D=S3 THEN 2430 

2190 NEXT ,T 

2200 RH=1 

2210 'v'(I) = l :Q0T0 2430 

2220 N=XR-XH~1 

2230 F0RJ=1 TO N 

2240 flD=7639+22*CXR-J)+VR-J 

2250 D=PEEKtflD> 

2260 IF D=63 THEN 2430 

2270 NEXT J 

2230 RN=1 

22^0 V(D = 1 =G0T0 2430 

2300 IF XROXH THEN 2430 

2310 IF VROr'H THEN 2400 

2320 N=VR-VH-1 

23-30 F0RJ=1 TO N 

2340 HH=7639+22*XR+VR-J 

2350 H=PEEK<HlO 
2360 IF Ii=63 THEN 2430 
2370 NEXT J 
2330 RN=1 

2390 V(I)=1 GOTO 2460 
2400 N=VH-VR-1 
2410 F0RJ=1 TO N 
2420 RD=7639+22*XR+VR+J 

2430 D=PEEK < RIO 

2440 IF Ii=63 THEN 2430 

2450 NEXT J 

2460 RN=1 

2470 V(I)=1 

24S0 NEXT I 

2490 IF RN=1 THEN GOSUE 251 O 

2500 RETURN 

2510 1=1 

2520 IF I=PEEK<900)+1 THEN RETURN 

2530 IF V(I)=U THEN 1=1+1 : G0TO2520 
2540 IF 1=1 THEN 1=1+1 : GOTO 2520 
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2^5 6 IF Va-l) = l THEN 1 = 1 + 1= GOTO £528 
2560 V(I-1)=1 =V(I>=0 

2570 SI!=R(I-L 1):R(I-1 J 1)=R(LD 1>=3X 

25S0 SV=Ra-l,2> :Ra-1.2>=Ra,2; :Ra,2>=SY 

25'3m 1 = 1-1: GijTO 2530 

26Q0 FOR 1 = 1 TO PEEKO09) 

2610 XH=Ha > :VH=H^J 

2620 IF V(I>=0 THEM RETURN 

2630 X=R(M):V=RCIi2) 

2640 H$=">" 

2650 XH=X-XH : VD=V-VH 

26fi9 RMa > =PEEK<: 7633+22+ < X+ 1 >+V-l ; 

2670 RM { 2 > -PEEK 1 7639+22+ < X+ 1 ) +V ) 

2630 RM<3>=PEEK07S33+22*< X+l >+Y+l > 

2630 RM < 4 > =PEEK C 7639+22+X+Y- 1 > 

27O0 RM<6>=PEEK<7S39+22#X+Y+1 > 

2710 RM < 7 >=PEEK< 7633+22+ CX-l )+V-l > 

2720 RM < S > -PEEK C 7633+22+ < X- 1 D +V ) 

2730 RM C 3 ; =PEEK <. 7633+22+ C X- 15+V+l > 

2740 IF RM<2>=63 AND RM<4>=63 THEN RMa?=63 

275* IF RM<4)=63 FIND RM<3)=63 THEN ■ RM <7>=63 

2760 IF RM<8]>=63 HMD RM<e>=63 THEN RM<3>=63 

2770 IF RM<6)=63 HMD RMC 2^=63 THEM RM£3>=b3 

2730 FORJ=l TO 3 

2730 IF RMCJi=63 THEN 2840 

2S00 IF RMtJ>=60 THEN WIM=1 : RETURN 

2S10 IF RM<J>=62 THEM 2340 

2320 OH J GOSUE 2330,2350,2370,2930,3010 

2330 I F J>5THEM0N J-5GOSUE303O , 3050 , 3070 , 3030 

2340 NEXT J 

2350 MV=110 

2S60 FOR J=l TO 9 

2S70 IF RM<JX=MV THEN M=J : MV=RM<J> 

2880 NEXT J 

2830 GOSUE 1060 

2300 Ra,l)=X:R(L£)=V 

2910 NEXT I 

2320 RETURN 

2330 rm a j =hes c xd+ 1 :> +hes < vn - 1 > 

2340 RETURN 

2350 RM < 2 y =HES < XB + 1 :> +HES C VH > 
2960 RETURN 

2370 RM>::3>=flES'' XD+1 )+hBS{YD+1 5 
2930 RETURN 

2990 RM < 4 ) =HBS C XD ) +HES C YD- 1 .■' 
300O RETURN 

30 18 RM'-"5 =fiBS(XBS +AE8 < YE > 
302O RETURN 

3030 RM ( i€y =fiBS < XD > +ABS ( VD+ 1 > 
304O RETURN 

3050 RPK7>--flBS<XD~l >+HBS<VD-l ) 

37 



3960 RETURN 

3970 RM { S > =RBS < XTJ-1 ) + ABS < VH ) 

3033 RETURN 

3030 RM <9)=RBS<HD-i 

310S RETURN 

3110 All =7639+22*K+Y 

3120 IF Ci=" " THEN POKE AD, 160 : RETURN 

3130 IF C*0"<" THEN 3150 

3140 POKE AD, 60 'POKE AD+30720, : RETURN 

3150 IF C*0">" THEN 3170 

3160 POKE AD, 62: POKE AB+30729, 1 : RETURN 

3170 RETURN 

3130 REM 

3190 REM SET UP GRAPHICS CHARACTERS 
3200 REM 

3210 FOR K=l TO 9 
3220 READ X 
3230 FOR I=X TO X+7 
324U READ J 
3250 POKE I, J 
3260 NEXT I,K 
3270 RETURN 
3230 REM 

3230 REM CHARACTER IiRTR 
3300 REM 

3310 riATfl 7616, 153, 30, 60, 255, 255, 60, 90, 153 
3320 DATA 7624 , , 73 , 42 , 23 ,127, 23 , 42 , 73 
333 DRTA 76 ^k.' , .■ , , 24 , 24 , U , , O 
3340 DATA 7640.0/0,0,3,0,0,0,0 
3350 DATA 7643, 28 , 23, 3, 62 , 3, 20, 34, 9 
3360 DATA 7656 , 26 , 44 , 63 , 254 , 63 , 63 , 1 24 , 
3370 DATA 7664 , 1 , 1 3 , 1 5 , 254 , ^54 , 243 , 1 36 , 1 36 
3380 DATA 7672, 3, 23, 23, 62, 127, 3,3, 9 
3330 DATA 7424, 9, 9, O, 9, 9, 9, O , 
READY. 
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DO-RAY-ME 



DESCRIPTION 



This program allows the VIC keyboard to be used as a piano 
keyboard. The program has a range of three octaves and 
sharps produced by using the shift key on the top two 
octaves. The keys being used are : Z-, Bottom octave (no 
sharps), A-K Middle octave (shifted for sharp), Q-l Top 
octave (shifted for sharp). turns off the note. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion required and connected to 
a television set for sound. 



RUNNING THE PROGRAM 



After typing run, use the VIC keyboard as a piano and play 
some music. 



PROGRAM STRUCTURE 



The lines of interest in this program are as follows. 

40 SS holds the address of sound register 0. 

50 Set four sound registers to zero. 

60 Set volume register to 15. 

90 Input key for note. 

100-350 Check for unshifted key. 

360-550 Play note. 

390-550 Check for shifted key. 
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10 REM PIANO 

29 REM ****3f*********************************** 

30 REM 

40 SS=9*I6t3+10 

50 POKESS, @ = POKESS+1 * 6 = POKESS+2 , 6 : P0KE3S+3, 

60 POKESS+4, 15 :PRIHT n 3"; "PRESS ft KEV" 

70 PR I NT "FOR ft TONE- 11 

80 PRINT "0 TO STOP TONE" 

90 GETfl*:IFR*s""THEN90 

100 IFfl$="fl"THENfl=191 =GOTO3b0 

llQI Ffl$= "S " THENft=l 98 : G0T0369 

120 I FR*= " D " THENft=204 : GOTO360 

1 30 I FR$= "F "THENft=207 = GOTO360 

140 I Ffl*= " G " THENft=2 1 3 : GOTO360 

159 IFfi$="H " THEHfi=2 1 7 : GOTO360 

1 69 I Fft$= " J " THENfl=221 • GOTO360 

170 IFfi$-"G"THENft=223:GOTO360 
1 80 I Fft*= " M u THEHft=227 = G0T0360 
193 IFfi*-"E"THENfl=230:GOTO360 
200 IFfl*="R"THENft=231 =GOTO360 
210 IFftf= ,, T"THENft=234:GOTO360 
220 IFfl*="V"THENft=236:GOTO360 
230 1 Ffl*= " U " THENft=238 : GOTO360 
240 I Fft$=" I "THENft=239 : GOTO360 
250 IFft*="G ,, THEHft=0:GOTO360 
260 IFfl*="K"THENft=223 : GOTO360 
270 IFfi*=" > "THENft=191 i GOTO360 
230 IFft*="M"THENH=i87 : GOTO360 
259 I Ffl$- " N " THENfi= 1 79 ■ GOTO360 
380 I Ffi$= " B THENft= 1 70 : GOTO360 
310 I Fft$= "V " THENft= 1 59 : GOTO360 
320 IFfi$= "C "THENR- 1 53 = GOT0360 
330 IFfl*-"X"THENfl=141 :GOTO360 
340 I Fft$= " Z " THENft= 123 : GOTO360 
350 G0T039G 

363 POKESS > O : FORI =1 T058 : NEXT 
370 POKESS j ft 
330 GOTO 90 

390 IFft$="^ "THEHfl=240 : G0T036D 
400 IFfl*=" /'THENfi=239 : GOTO360 
41Q IFfl*=" l"THEHH=237:G0TO360 
420 I FH*= " I " THENfl=235 = GOTO360 
430 IFfi*= ,, -'«TH£Nft=232 : GOTO360 
440 IFfl*="""THENfl=231 :GOTO360 
450 IFft*= J, Q ,, THEHft=223 : GOTO360 
460 IFR$= ,I »"THEHH=225 = GOTO360 
470 I Ffl*= "THENfl-225 = GOTO360 
400 I Fft*= " THEHfi=223 : GOT0368 
490 I Ffl*=" I " THFHH=2 1 9 : GOT0360 
500 I Fft:r- " I " THFNH=2 1 5 : GOTO360 



516 IFfl*= M -"THENlR=21 : GOT 0360 
52*"1 IFR$-"-"THENfi=207 : G0T03SB 
536 IFfl*= ,l «"THENH=201 :C50TO368 
54U I Ffi* = " * " THEHft= 1 95 ■ GOTO360 
559 6OTO30 
REfiDV. 
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SOUND EFFECTS 



DESCRIPTION 

This program has a selection of noises generated by the 
computer, with which the user can play around to produce 
some interesting sound effects. 

For example, when the display appears on the screen the 
user is offered ten choices by mixing sound number three, 
the bombardment with sound number two, the explosion; 
the effect is that of a bomb dropping and its resulting 
explosive sound. 

The actual display for this program is a very simple one at 
first glance, but a great deal of work has gone into the 
writing. The border surrounding the ten choices changes 
colour in a random manner. 

Should the user decide to write his own games program he 
will find this program to be of great use when deciding which 
sound effects to add or spruce up the end result of his work. 



EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 
RUNNING THE PROGRAM 



After loading the program and typing run the attractive 
display will invite the user to make his choice of sound. By 
hitting the appropriate key i.e. 0, the user will hear a mystery 
noise. To retire from the program the user must hit the space 
bar. 



PROGRAM STRUCTURE 

The lines to note in this program are as follows. 
50-190 Instructions and the input for 'Which Choice. 
290-320 Subroutine to generate the mystery noise. 
330-350 Subroutine to generate the computer mania 
sound. 

360-370 Subroutine to generate the explosion sound, 
380-410 Subroutine to generate the bombardment 
sound. 
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420-440 Subroutine to generate the alarm noise. 

450-470 Subroutine to generate the laser fire sound. 

480-500 Subroutine to generate the siren. 

510-520 Subroutine to generate the silly tune. 

530-560 Subroutine to generate the telephone ringing 
tone. 

570-610 Subroutine to generate the random noises. 

620 End of program. 



MVSTERV NOISE 
COMPUTER MAN JA 
EMPLOS ION 
BOMBARD MEN X 
ALARM 

LASER F" IRE 
S I REM 

SILLV TUNE 
TELEPHONE 
RANDOM NO I SES 
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10 REM SOUND EFFECTS 

28 REM *********##******ifi#*******#******#*#**** 

30 REM 

40 P0KE36879,26 

50 PRINTMS** SOUND EFFECTS **B"; 

60 PRINT" ": 

70 PRINT"! MYSTERY NOISE 

36 PRINT"** 1 COMPUTER MANIA 

90 PRINT")*. 2 EXPLOSION 

106 PRINT"iiI 3 BOMBARDMENT 

110 PR I NT "Mi 4 ALARM 

129 PRINT"*G 5 LASER FIRE 

130 PRINT"*!!! 6 SIREN 

140 PRINT"!** 7 SILLY TUNE 

15© PRINT "MR S TELEPHONE 

160 PRINT"*k 9 RANDOM NOISES 

170 PRINT"« 5) "; 

130 PRINT" WHICH ONE ? Hill S3" ; Q=1 

190 GETA*: IFA$<>" "THEN240 

200 FORI=1TO5O0:NEXT 

210 Q=Q+1 : IFQ=3THENQ=2 

220 POKE36379,Q+24 

230 GOTO 190 

240 A=1+VAL<A$) 

250 IFA$=" "THEN628 

268 ONAGGSUB2S0, 338, 360. 380, 420, 45©, 438, 510, 530, 570 
278 FORG=0TO4 ! P0KE36874+G, i NEXT 
230 GOTO 190 
234 REM 

2S5 REM MYSTERY NOISE 
236 REM 

290 POKE3SS78 ,15= FORL=250TO200STEP-2 
3@8 P0KE36876, L : FORM= 1 TOl 68 = NEXT : NEXT 
3 1 8 F0RL=285TO258STEP2 ■ P0KE36876 , L 
320 FORM=1TO100 : NEXT : NEXT : RETURN 

324 REM 

325 REM COMPUTER MANIA 

326 REM 

330 POKE36873,15:FORL=1TO180 

340 P0KE36876, INT<RND< 1 )*12S)+12S 

358 FORM=1TO10 : NEXT : NEXT : RETURN 

354 REM 

355 REM EXPLOSION 

356 REM 

360 P0KE36S77, 228 : FORL= 1 5T08STEP- 1 ■ P0KE36S7S, L 
378 FORM= 1 TO3O0 : NEXT i NEXT I RETURN 

374 REM 

375 REM BOMBARDMENT 

376 REM 

300 P0KE36878, 1Q = FORL=230TO128STEP-1 : P0KE36376, L 
" 1 FORM= I T028 NEIfT : NEXT : POKE 36376 , 8 
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4O0 PQKE36878 > 280 ■ FORL= 1 5TO0STEP-. 5 
416 P0KE36S78i L ; NEXT : RETURN 

414 REM 

415 REM ALARM 

416 REM 

420 P0KE36S7S, 15 ' FQRL*1 T01 : FGRM= 1 80TO235STEP2 

439 P0KE36876, M : FORN-1 TO 10 ■ NEXT ■ NEXT 

440 PQKE36376, = FORM* 1TQ 100 : NEXT : NEXT : RETURN 

444 REM 

445 REM LASER FIRE 

446 REM 

45A P0KE3687S ,15 = FORL- I TO30 = FORM=250TO240STEP- 1 

460 P0KE36876 , M : NEXT : FORM-240TO256 

470 P0KE3S876 > M = NEXT : P0KE36376, : NEXT : RETURN 

474 REM 

475 REM SIREN 

476 REM 

430 P0KE3687S, 15 : FORL* 1 TO 18 : P0KE36875, 206 

498 FORM=1TO500 ■ NEXT : P0KE36875, : PGKE36876, 200 

Zm FORM= 1 TO590 = NEXT : P0KE36876 , : NEXT : RETURN 

504 REM 

505 REM SILLV TUNE 
5Q6 REM 

5 1 PCKE36873 ,15= FORL= 1 TO 1 5 : P0KE36876 , 1 60+L 
520 FORM= 1TO400 : NEXT = NEXT : RETURN 

524 REM 

525 REM TELEPHONE 

526 REM 

530 P0KE36373, 15 : F0RL=1T05- FORK-1TO50 

540 P0KE36876, £20 : FORN=l T05 : NEXT : P0KE36876, 

550 NEXT 

560 FORM= 1 TO3000 = NEXT : NEXT - RETURN 

564 REM 

565 REM RANDOM NOISES 

566 REM 

570 P0KE36878, 25 : FORL= 1 T026 

530 FORM-254TO240+INTCRNJK1 >*18>STEP-1 

530 P0KE36876,M : NEXT 

600 P0KE36876 , ■ FORM=0TOINT < RNB <1 >* 1 00) + 1 20 

610 NEXT : NEXT ; RETURN 

620 : PRINT'TE" ; : POKE36879, 27 

REflDV. 
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ARROW 



DESCRIPTION 

The aim of this game is to score the highest number of points 
before the time limit of sixty seconds runs out. In this game 
the user becomes an arrow which, as the game progresses, 
grows little blobs on the tail. These blobs increase the risk 
factor of travelling around within the game area. But travel 
the player must. To score points the arrow head must pierce 
randomly appearing squares which contain different point 
values. 

The danger from ever increasing blobs comes from unwary 
directing of the arrow head in the user's eagerness to spear 
the squares. The user may (and does) spear himself in the tail. 
Hitting the surrounding border of the game will also lose the 
user the match because the effect of hitting the wall turns the 
arrow head back upon its self and into it's tail. 

EQUIPMENT REQUIRED 

Basic unexpanded VIC-20. 

RUNNING THE PROGRAM 

After loading the program and typing run the game appears 
on your screen with the timing gauge ticking away in the top 
left hand corner. In the centre of the top border line the 
scoring gauge tried valiantly to keep up with the timer. To 
move the arrow head the following letters have been 
designated: 

T 

F H 
B 

T = Up. 
F = Left. 
H = Right. 
B ~ Down. 
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PROGRAM STRUCTURE 



The lines of interest in this program are as follows. 

40-50 Find start of screen and colour memory maps. 

150-190 Displays border. 

200-540 Plays the game. 

550-580 Indicates player hitting the wall or his tail. 

570-620 Informs player of new high score. 

630-640 Input for another go. 

690-710 Sounds when scoring. 

740-750 Sound when arrow is moving. 

770-960 Print instructions. 
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23 REM ************************************* 
30 REM 

34 PEN 

35 REM FIND START OF SCREEN AND COLOUR MEMORY MAPS 
'3S REM 

40 VR=PEEK< 64S>*256 

50 KR-3S4S0 : IFVRO7680THENKR=373S3 
50 GOSUB770 
70 P0KES2S.O 
SO DIMP<30> 

SO KL < 1 > = 1 '■ KL v 2 > =3 ■' KL C 3 > =5 : KL < 4 > =7 : 3=0 
100 FOR I = 1 T04 = READ A* < I > : NEXT : HAT AB , F , H , T 
1 1 @ B < O > =22 : D < 1 > -68 : B < 2 > »62 : D C 3 > =30 ■ T6= 3593 
120 T3=VR 
l^y C^ = VR 

140 CI =22 : REM SCREEN WIDTH 

144 REM 

145 REM DISPLAY BORDER AROUND SCREEN 
145 REM 

158 PRINT"*) SCORE : Q TOP" PEEK <32S>i 

l go print " mmmmmmmmm " ; 

179 FORI=1TO20 

130 PRINT"* •"i : NEXT 

190 PRINT-MMMMMMMMMMtliliiSa 

1^4 REM 

195 REM SET TIME TO ZERO AND PLAY GAME 

196 REM 

200 V=15-H=10 : V1=0:H1=-1 

210 P2=10 ; D1=1 :TI$=" 000000" 

220 PR I NT " 3" ; R I GHT* < T I $ , 2 ) • I FT I >T6GOTO580 

23m GETZ^ : I F2$= " " THEN280 

240 2=56 = F0RV=1T04 = IFZ*«fl*<V) THEN2=Y-1 - Y=5 
250 NEXT: IFZOINT<Z>ORZ<0ORZ>3GOTO280 
260 B1=Z : n=Z- 1 . 5 : VI =INT < AB3 < 10 > *SGN<B> 
270 H1-SGN<D)-V1 
2 g@ V=V-V1 ;H=H+H1 : GOSUB740 

29© P=CS+V*Cl+H:KL=INT(RNB<l)*4+n =KL=KL<KL> 
300 POKEKR+ V*C 1+HjKL 
310 P9«PEEK<P) 

320 R6=R7 = R7=R7+1 : IFR7>P2TH£NR7=0 
33G Pl«P<R7>:p<R7>«P 

340 IFP1O0THENP0KEP1 , 32 ■ POKEPi-CS+KR, 7 
35fl POKEP, BCD! > : P1=PCR6> • IFP1O8THENP0KEP1 , 81 
360 IFP9O32G0T0490 
370 IFRNB<U>.05THEN220 

3S0 F0RV3=V2- 1 T0V2+ 1 = P3=V3*C1 +T9 ^^ njlin 
390 F0RH3=H2-1T0H2+1 = IFPEEK<P3+H3><>102GOTO416 
4O0 P0KCP3+H3, 32 

41 n NEXTH3,V3: T=0 P0KFP3..32 

4. 'ii Y2=INT<RNB<i:)*l3>+3>H2«INT<RN&<l)*i9>+2 



430 F0RV3=V2- 1 T0V2+ 1 : P3=V3*C 1 +T9 

449 F0RH3-H2-1T0H2+1 : IFPEEK<P3+H3X>32G0T0428 

456 NEXTH3 , V3 = F0RV3=V2- 1 T0V2+ 1 : P3=V3*C 1 +T9 

460 F0RH3-H2-1TQH2+1 =P0KEP3+H3, 192 

470 NEXTH3, V3 = T=9*RND< 1 ) = PS=V2*C1+H2+T9 

439 P0KEPS..49+T -GOTO220 

498 IFP9O1S2THEN550 

5S0 T*=TI* 

5 1 r T=T- 1 : 3=5+ 1 : P0KEP3, T+49 
520 FRINT"iMWMiifr , ;S 

530 GQSUE698 ; I FT>=8THEN510 
546 P2-P2+1 : TI$=T$: GOTO330 

544 REM 

545 REM HIT WALL OR YOURSELF 
54g REM 

558 P0KE36S77 , 220 = F0RL= 1 5T08STEP- 1 : P0KE36873 , L 

560 FORM= 1 TO300 = NEXT = NEXT 

570 PCKE36877 , 8 : F0KE3687S > 

588 IF£<=PEEKCS23)THEH610 

590 PRINT u 3flttB*JEW HIGH SCORE" 

608 PR I NT "W'S" POINTS." : PDKES28, S : GOTO 638 

610 PR I NT "maw* I GH SCORE IS" J PEEK C 323 > ; 

62^ PR I NT" II. " :PRINT"MWi'OU GOT = "S"ll. 

63fl PRINT"MMBflMOTHER GO CV/K) ? 

648 OETZ* = I F2$= " " THEH648 

650 I FZ$ = " V " THENRESTORE = PR I NT "T : G0TQ38 

6fi8 IF2$O"N"GOTQ640 

678 PRINT'TE" i ■ POKE 3 6379, 27 : END 

688 REM MUSIC 

690 P0KE36378, 1 5 ■ FORL=200T0248 = P0KE36S76, L 
7Q0 FORM= 1 T05 = NEXT = NEXT 
718 POKE3687S,0-POKE36876,8 
720 = 

730 RETURN 

740 P0KE3637S, 15 = POKE36876>220 
7S0 F0RL= 1 T05 = NEXT : PGKE36376 , 
760 RETURN 

764 REM 

765 REM INSTRUCTIONS 

766 REM 

778 P0KE36879,42 

738 PRINT "m *** VIC ARROW ##*" 

7^0 PRINT "WOU RRE AN ARROW" 

SQ0 PRINT" MOVING AROUND THE" 

318 PRINT" SCREEN. TRV TO HIT " 

320 PRINT" THE BOXES FOR POINTS. " 

S":0 PRINyWOU MOVE WITH =" 

340 PRINT" T T-UP" 

858 PRINT" I F=I_EFT" 

368 PRINT" FH-H H=RIGHT" 

878 PRINT" I B=DOWN" 



3SQ PRINT" E 
896 PRIHT"Mi'OU MUST AVOID THE" 
50U PRINT " WALLS BHD VOURSELF. ' 
910 PRINT" AS TIME GOES ON THE 1 
92e PRINT" ARROW GETS LONGER. " 

PRINT'-Wt'OU HAVE 60 SECONDS. 1 
940 PRINT" SHIT ANY KEV TO START! 
950 GET At : IFA$=""THEN950 
968 PRINT "3": RETURN 
READY. 



TANK-V-UFO 



DESCRIPTION 

This game is a test of timing and skill. The aim of the game is 
to destroy the invading UFO which floats across the screen at 
varying heights while dropping bombs on the red tank below. 
The tank meanwhile transverses the ground firing at the 
UFO. Very attractive little explosion characters appear but 
are not dangerous. 

When hit, the UFO explodes spectacularly but the tank 
flashes red and black. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

In order to run this program on an unexpanded VIC remove 
all REM statements. 

After loading the program and typing run the screen will 
display a simple line along the base of the screen on which 
rests the tank. At the top of the screen the first two lines 
display the score, the number of tanks hit and the number of 
UFO's wiped out. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

40-50 Limits the top of memory. 

70-80 Find start of video and colour memory maps. 

130-200 Sets up display. 

220-540 Plays the game. 

550-620 Motivates the tank. 

630-650 Explodes the bombs on the ground. 

670-700 Clears the bomb explosions. 

710-770 Explodes the UFO's. 

780-840 Clears exploded UFO's of the screen. 

850-1000 Explodes the tanks. 

1070-1170 Print instructions. 



1180-1220 Displays score at the top of the screen. 
1230-1240 Clears keyboard buffer and ends program. 
1260-1320 Sets up characters. 
1330-1410 Character data. 



10 REM TRNK-'v'-UFO 

20 REN **if:************************************* 

30 REM 

34 REM 

35 REM LIMIT TOP OF MEMORV 
3b REM 

4m FHKE 56,PEEK{56>-2:P0KE 52.. PEEK £56) -2 
50 POKE 51 , PEEK*: 55) ; CLR : P0KE36379.. 42 
60 GOSUEie?0 : PRIHT".T' 
64 REM 

6^ REM FIND START OF VIDEO HMD COLOUR MEMORV MHPS 
66 REM 

70 VR-PEEK C 643 ) *256 

kh KR=364O0 : IFVRO7680THENKR-37888 

SO UF=KR-VR 

1 go V A=9* 1 6 T3+ 1 4 : VN=9# 1 6 T3+ 1 3 
110 POKEVA+ 1.-25 

119 REM 

120 REM SET UP DISPLAY 

121 REM 

133 PR I NT " i ^t!li!MPlt!M!!ait!MgKMgit!lgMgI^^Ig]" > 

140 PRINT" li EIIIIJ " 

150 F0RA=KRT0KR+22*23 : POKER, = NEXT ■ A=0 

160 PRINT 

170 FRINT"fl 3 11 

180 PR I NT" 9 : = 11 

190 PRINT" TIT J 

206 G0SUE1189 

203 REM 

210 REM READ KEYBOARD 

211 REM 

22^ I FPEEK C 1 ^7 ^ -34THENGOSUB590 : H=A+ 1 : OOTO530 
230 IF FEEKa97)04S THEN 260 
240 FOKEVH,0--POKEVN,0 
250 PRINT" ST; ; G0T01230 

2fifl I FPEEK < 197>-33THEHG0SUB596 : fl=A-l : GOTO530 
270 I FNOT < PEEK a 97 ) =35ANDE=0 > THEN380 
230 B= 1 : C=8078+A ■ L= 1 ■ P= 1 5 : POKEVN , 1 53 
29tf PfiKEC j 63 : POKEC+GF > 2 : GOTO370 
306 IFL=0THEN320 

3 1 PHKEVA , P : P=P- 1 : IFP=- 1 THENL=0 : POKEVN , 

320 IFB=0THENPiJKE36S73,0 : GOTO 378 

330 P0KEC,32 : C=C-22 

?4tf I FPEEK < C > =60OR PEEK < C ) =6 1 THEN7 1 6 

350 IFiX7746THENE=0 = G0T0370 

360 POKEC, 63 

370 IFD=0THEN103O 

380 IFD=0THEN430 

39fl POKEE , 32 : POKEE- 1 , 32 : POKEE-2 , 32 : K=K+ 1 

460 IFE=ITHENB=0 : GDTD438 

4 1 E=E+J : POKEE: 6 1 : POKEE- 1 , 60 
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428 IFJ=1THEN46G 

430 IFNOK INK <813£-E>/22I>*22-K-flfiNBF=0>THEN450 
44a F=l =G=E+21 :M=21 
450 G0T0486 

460 IFNOK INK <3098-E>/£2>=fl-KflHDFO0>THEN4S0 

470 F=l -G=E+23:ri=23 

430 IFF=0THEH220 

490 P0KEG,32-G=G+f1 

500 I FPEEK ( G > O32THEN850 

510 1 FG>VR+22*2 1 THENF=0 = G0T0638 

520 POKEG, 62 =GOTO220 

530 IFfl<0THEHfl=@ 

540 IFfl>16THENfi=16 

544 REM 

545 REM MOVE TANK 

546 REM 
550 PRINT 

560 PRINTTPB<fl> " 8" 

570 PRINTTftE<fl)"9: : : 1 " 

580 PRINT".Tn"J :GOTO270 

590 PRINT 

600 PRINTTFlB<fl>" 

610 PRIHTTflBCfl) " 

620 PRINT'TTTT i '■ RETURN 

624 REM 

625 REM EXPLODE BOMB ON GROUND 

626 REM 

630 POKEG > 1 34 : POKEG+ 1 , 206 = POKEG-1 , 295 
640 POKEG-20, 174 = POKEG-21 , 174 =P0KEG-22, 174 
650 FOKEG-23 , 1 74 : POKEG-24 , 1 74 
656 REM 

660 FORfiH=l TO 1 00 : NEXT 

664 REM 

665 REM CLEAR BOMB EXPLOSION 

670 POKEG , 32 : POKEG+ 1 > 32 : POKEG-1 , 32 
680 PGKEG-20, 32 • POKEG-2 1 , 32 ■ POKEG-22 .. 32 
690 POKEG-23, 32 = POKEG-24 > 32 
700 GOT022© 

704 REM 

705 REM EXPLODE UFO 

706 REM 

710 POKE 3G720+C5 

720 POKE 30720+C+l * 5 : POKE 30720+.C-1.5 

730 L=0 

740 POKE VN, 228 

750 FORGG= 1 5TO0STEP- 1 • POKEVfl, GG+12S 
760 FORGH=l T07G = NEXT : NEXT 

770 B=0 : D=0 

774 REM 

775 REM CLEAR UFO EXPLOSION 

776 RI V M 



780 POKE 30720+C; 0=POKE C,32 

7^)0 PUKE 30720+C+ 1 .. : POKE C+l , 32 

800 POKE 30720+C-l ,0=POKE C-1,32 

310 GOTOS20 

820 PRINT"3HB"; 

830 DU=DU+1 :GOSUBli80 

84S 8OTO220 

844 REM 

845 REM EXPLODE TANK 
84b REM 

850 POKEVH, 128 -L=0 

860 R=R:FORKL=lTu200STEF3:PGKEVfl J 15-INTCKL/13>+ 123 

870 PRIHTTflECfl>" 

838 PRINTTRECAV'iBI 3" 

890 PRINTTRE(H> "9 : : : ; " 

900 PR I NT" m" J 

918 FOR 1=1 TO 50 ■ NEXT I 

920 PRINTTRBCR > "H 3 

938 PRINTTRE'- R.J "9 : = = .: " 

940 PRINT M .TTT; 

950 FOR 1=1 TO 50: NEXT I 

960 NEXT 

970 PRINTTflEW 

988 PRINTTRE<R> " 

990 PRINTTRE- R>" " i 

180O FRINT'Tm" i 

1010 dt=dt+ 1 : oosue 1130 

1 820 F=0 : R=0 ; GOTO 1 bO 

10301 D=l :E=7702+INT(RND<l>*14)*2a+eS: I=E-20:K=0 
104O J=-l = IFRNDa )>. 5THENE=E-21 : I=E+28 = J=l 
lMFifi noTO3S0 

1859 REM 

1860 REM PRINT INSTRUCTIONS 

1861 REM 

1O70 F'RINT'TTft** TANK VERSUS UFO*** 

1088 PRINT"Mt'OU rre THE DRIVER OF 

1890 PRINT" R TRNK. 

1188 PRINT"S3H00T THE UFO'S WITH. 

1110 PR I NT "SB 2 = :^EFT« MOVEMENT 

1128 PRINT"*] C - ERIGHT5 MOVEMENT 

1138 PR I NT "S E = SFIRE1 

114A PR INT 11 M Q = 33UIT* 

1158 PRINT"M««SSTRRT WITH RNV KEV 

llnfl GETfl$ : IFRi=" "THEN1 168 

1 1 70 rtfiSUE 1 260 ■ P0KE36S69 , 255 : RETURN 

1188 PRINT"SBS3==> TRNK SCORE : "DU ' 

1198 PRINT" *==> UFO SCORE : "DT 

1288 PRINT "BE) 

1216 PR INT" WeMBBSBBBBBBSBil 
1228 RETURN 
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1 236 FOR I = 1 TO50 = GET A* : NEXT - P0KE36379, 27 
124* POKE 36869, 240 : POKE 56.- PEEK < 56 > +2 : END 

1249 REM 

125a REM SET UP GRAPHIC CHARACTERS 
1251 REM 

1260 FOR 1=1 TO 9 
1276 READ X 

1250 FOR J=0 TO 7 
1290 RERD K 

1380 POKE X+J,K 
1310 NEXT J, I 
1320 RETURN 

1324 REM 

1325 REM CHARACTER DATA 

1326 REM 

1339 DATA 7424,0,6,8,0,0,0,0,0 

134W DATA 7643,64,32,31,25,57, 12?, 233, 56 

1350 DATA 7656,2,4,243,152,156,254,119,23 

1 3f-"fi BAT A 7664 , 68, 103, 1 24 , 56 , 56 , 56 , 1 6 , O 

1370 DATA 7672,16,56,56,56,124,108,63,0 

1330 DRTA 7616,24,24,24,24,60,126,255,255 

13*50 DATA 7624,15,31,31,63,63,31,31,15 

14S0 DATA 7632,255,255,255,255,255,255,255,255 

1410 DATA 7640,240,248,243,252,252,243,248,240 

RE ADV. 
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DESCRIPTION 

This is a game of increasing difficulty. The object being to get 
your man home safely through the minefield. The computer 
offers help by warning you where the mines are up to two 
moves away from the man in any direction. The warning 
given consists of a high pitched alarm should there be a mine 
one move away from the man and a lower pitched alarm if 
the mine is two moves away. 

Once the player has made it safely to his home or has been 
blown up the player must hit the 'E' to end the game. Any 
other key and the game is reset for a new go. Each time the 
player elects to play again two more mines are added to the 
minefield to increase the difficulty of play. 

EQUIPMENT REQUIRED 

A basic V1C-20 with 3K of expansion memory. 

RUNNING THE PROGRAM 

To move the man in the required direction use the number 
keys, thus: 
7 8 9 
4 6 
1 2 3 

Remember to listen for the landmine warnings! 



PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

40 Sets up number of mines at 10 initially. 

50 Limits top of memory. 

60 Array for storing grass and mines. 

1.10-1 5G Sets up grass in all positions in the array. 

170-240 Chooses random positions for mines. 

250-260 Sets grass in top left, house in bottom right 

position. 
290-420 Displays minefield. 



470-500 Inputs moves. 

520-670 Increases or decreases X and Y positions 

according to move input. 
680-700 Check for validification of move. 
710-720 Displays white grass path taken by man. 
730-810 Check for mines near man. 
860-890 Displays mine field successfully crossed. 
900-980 Displays mine stepped on. 
990-1020 Input for new go, E for end of the game. 
1030-1040 Increases the number of mines by 2 and sets up 

screen to replay game. 
1090-1190 Displays routine. 

1220-1360 Authorises warning to man that mines are in 

the vicinity. 
1435-1500 Sets up graphics characters. 
1510-1590 Data for characters. 
1610-1740 Displays explosion. 
1760-1940 Input move and sounds alarm if mines are 
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10 REM LANDMINE 

29 REM ***************************************** 

30 REM 

40 POKE 500, 10- REM NO MINES = 19 INITIALLY 
50 POKE 56,PEEK<56>~1 : CLR=POKE 56, PEEK<56>+1 
68 DIM A*<19,1S::' 
70 POKE 36879, 42 : PR I NT "IT 

GOSUB 1440 
90 POKE 56,PEEK<56>-1 
108 POKE 36869,255 
110 FOR 1=1 TO 19 
120 FOR J=l TO IS 
ISO A*a,J)="6i=" 
140 NEXT J 
150 NEXT I 

159 REM 

160 REM SET UP MINES AT RANDOM 

161 REM 

170 FOR 1 = 1 TO PEEK OSS) 

loo ;^:=RNna'j)*i9+i 

190 VX=RNDa>*18+l 

209 IF H^CX*;, V^-'TiD" THEN 188 

210 IF X;-.'=l AND V7£=l THEN ISO 
228 IF KIi-19 AND VX=18 THEN ISO 
236 A*<:^,VX> = "^" 

240 NEXT I 

250 R$C1, l>="lt=" 

260 A* (19, 18)="BS" 

278 PRINT"n;« NO OF MINES = "; PEEK (900) 

279 REM 

280 REM PRINT MINEFIELD ON SCREEN 

281 REM 

298 CL=2 -M0=l9 -2t= " tt=" - T*= " H 11 

300 FOR RW=2 TO 19 

318 GOSLIE 105O 

320 NEXT RW 

330 CL=0 = N0=2 1 : RW=0 = Z*= " SSm" : T$="H" 

348 GOSUB 1650 

350 RW=20 

:-:£0 GOSUB 1050 

378 CL=8 ■ NO= 1 9 - RW= 1 = Z*= " sl£>i»" ■' T$= " V " 

388 GOSUB 1S50 

390 CL=21 

408 GOSUB 1050 

418 X/i=l ■ VJi=l 

420 CL=20 : RW=19 ; T^="H" : NO=l : 2i="i3" : GOSUB 1856 

430 PRINT" S" 

440 GOTO 740 

458 GOSUB 1370 

460 PRINT"!?"; 

478 GOSUB 1758 



480 GG»VflL<GG*> 

459 IF GG<1 OR GG>9 THEN 450 

510 ON GG GOTO 520,540,560,580,600,610,630,650.670 
520 XXZ=XK- 1 : VVK=VK+ 1 • CR$= " IW" 

530 GOTO 680 

54u XXK=XJi; VVK=VK+1 :CR*="M" 
550 GOTO 680 

560 XXX=XK+1 : VVJi=VK+l :CR*= ,, M» U 
570 GOTO 630 

Sao xxx=xa- 1 = vvx=v;-; • cr*= " ir 

590 GOTO 630 

600 GOTO 450 

610 XX?i-X?i+l : V VX ■ CR*= " M" 

62 R GOTO 6S0 

630 XXX=X?i- 1 ; VV?i=V?i- 1 •• CR$= ■ ni" 

640 GOTO 630 

650 xxx*xk : vv;;=v:-:-i ■ CR*="rr 

666 GOTO 630 

67G XXJi=XK+ 1 : W/.=r/.-i ■ CR*= " Tl" 
680 IFXXKO OR XXKM9 THEN 456 
690 IFWZO OR VVKMS THEN 450 

70S XK=XX/i ; V5J=VVK 

710 CL»l+ftflX : RW=1+EBK : T$="H" = 2t~" *=B" 
720 GOSUB 1650 = ft* <RFlZ, BEX >="*=" 
725 REM 

730 REM NOW CHECK FOR MINES IN VICINITV 

731 REM 

740 IF fl*<XK,VZ>»"SD" THEN 9S0 

750 RtOO^WD*'*?" 

76S IF X;;=19 AND VX=18 THEN 860 

769 REM 

770 REM CHECK FOR i MOVE BMflV 

771 REM 

780 ms;:=i -GOSUB 1200 

756 IF MNOS THEN 320 

793 REM 

S@0 REM CHECK FOR 2 MOVES RWRV 

SOI REM 

810 MS';'=2 : GOSUB 1200 

319 REM 

820 REM RESET CURSOR WITHIN MINEFIELD 

321 REM 

330 GOSUB 1370 

S40 GOTO 450 

349 REM 

350 REM MINEFIELD CROSSED SUCCESSFULLY 

351 REM 

360 CL=0 : N0= 1 : RW=2 1 : T$="H" 

370 Z*= " 3*1 1 NEF I ELD- SUCCESSFULLY CROSSED 

330 GOSUB 1O50 
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830 A$<19, 13)="B8"J60T0 930 

839 REM 

390 REM LANDMINE EXPLODES 

301 REM 

910 GOSUB 1608 

320 fl*<XX,VK> = "!TB H 

930 FOR V=l TO 18 

340 KK= 1 ■ VX=V : GOSUB 1370 

95S FOR JM TO 19 

960 PRINT A*<X,Y>; 

970 NEXT X 

980 NEXT V 

330 GET GG$-'XF GG*="" THEN 996 

1O00 IF GG$<y"E" THEN 1030 

1910 POKE 5£,PEEK<56>+1 =PQKE 36863,240 

102O POKE 36873, 27 :pRINT"38": END 

1030 POKE 300 J PEEK<906>+2 

1040 POKE 56, PEEK <56) +1 = GOTO 56 

1843 REM 

1050 REM SUBROUTINE TO DRAW LINE ON SCREEN 

1060 REM CL=STRRT COLUMN, RW=START ROW 

1070 REM NO=NO OF CHARS, T*= V<VERT) , HCHORIZ; 

1080 REM Z$=TEXT TO PRINT 

1081 REM 
1050 PRINTS" 

1100 IF CL=0 THEN 1120 

1110 FOR 1=1 TO CL-1 ■' PR I NT "M" ; : NEXT I 

1120 IF RW=0 THEN 1140 

1130 FOR 1=1 TO RW-1 : PRINT" W" ; : NEXT I 

1140 IF T*=*'H" THEN 1*=*'" 

1150 IF T*="V" THEN l$="m u 

1160 FOR 1=1 TO NO 

1170 FRINTZ*;I*J 

1180 NEXT I 

1190 RETURN 

1199 REM 

1200 REM CHECK FOR MINES IN VICINITV 

1210 REM MSX=1 CLOSE SEARCH, MSK =2 HIDE SEARCH 

1211 REM 
1220 MH=0 

1230 FOR I=XK-MSE TO XJi+MSK 
1240 FOR J=W.-n$Z TO YJi+MSSS 
1250 IF Kl OR J<1 THEN 1280 
1260 IF I.M9 OR J>18 THEN 1280 
1270 IF R$<I, J>a ,, SD" THEN MN=MN+1 
1280 NEXT J 
1230 NEXT I 

1300 Z*="S S" 
1310 IF MN<=0 THEN 1340 
1320 Z$="SM"+STR$0 ! !N>+" MINECS) " 
1330 Z**2$+STRS<MS2)+" MOVES AWAVB" 



1340 CL=1 : NG=1 = RW=21 : T$="H'* 
1356 GQSUB 1056 
1360 RETURN 

1369 REM 

1370 REM CURSOR ADDRESS TO WITHIN MINEFIELD 
1330 REM XX=X AXIS, VX=V AXIS 

1381 REM 

1350 PR I NT "si"; 

1460 FOR 1=1 TO :PRINT"M".: : NEXT I 

1410 FOR 1 = 1 TO V?i+1:PRINT"M"; =NEXT I 
1420 PR I NT "II" .; 
1430 RETURN 

1434 REM 

1435 REM SET UP GRAPHICS CHARACTERS 

1436 REM 

144U FOR 1=1 TO 9 
1450 READ X 
1460 FOR J=0 TO 7 
1470 READ K 
14SQ POKE X+J,K 
1490 NEXT 5*1 
1500 RETURN 
1504 REM 

15G5 REM CHARACTER DATA 
1506 REM 

1510 DATA 7424,0,0,0,0,0,9,0,6 

1520 DATA 7656,0,12,12,0,96,102,6,9 

1536 DATA 7664,60,66,153,165,165,153,66,60 

1540 DATA 7672,23,23,8,62,3,20,34,0 

1550 DATA 7624,153,90,60,255,255,60,90,153 

1560 DATA 7632,146,34,56,254,56,84,146,0 

1570 DATA 7640,0,0,0,24,24,0,0,0 

1530 DATA 7643,0,0,0,0,0,0,0,9 

1590 DATA 7616,20,44,68,254,63,68,124,0 

1599 REM 

1600 REM EXPLOSION 
16G1- REM 

1610 POKE 36877,220 

1620 FOR L= 15 TO O STEP -1 

1630 POKE 36878, L 

1646 IF L=15 THEN Z#="nK" 

1650 IF L=U THEN Z*="HJ;" 

1660 IF L=7 THEN Zt="tn- " 

1670 IF L=3 THEN Z$="Z&" 

1 630 CL= 1 +XK ; RW- 1 +VK : NO- 1 

1690 GOSUE 1050 

1709 FOR M=l TO 50: NEXT M 

1710 NEXT L 

1720 POKE 36877,0 
1730 POKE 36373,0 
1740 RETURN 



1749 REM 

REN GET MOVE HMD ALARM 
1751 REM 

176W IF MN08 THEN 1790 

1776 GET GG* : IF GG$= ,M ' THEN 1770 

1730 RETURN 

1790 IF MSK=2 THEN SH-1S0 : SL=128 : GOTO 1810 

1800 SL=180 : SH=235 

1810 POKE 36878/ 15 

1820 FOR M=SL TO SH STEP 2 

1S30 POKE 36376/ M 

1840 GET GG*:IF GG*<>"" THEN 1920 

1850 FOR N=l TO 10 

1860 NEXT N 

1870 NEXT M 

1880 POKE 36876/0 

1890 FOR M=l TO 100 

1900 NEXT M 

1910 GOTO 1320 

1920 POKE 36878/0 

1930 POKE 36376 /0 

1940 RETURN 

REflDV. 



SPACEWAR 



DESCRIPTION 

The game is in two parts. The first sets up the parameters 
and prints the instructions. The second plays the actual 
game. The first part must therefore be loaded and run before 
the second part. When part one is run, it will display two 
pages of instructions separated by 'hit any key'. The next 
page will input skill level from 1-9 and then either the option 
of sun's gravity, black hole, or no gravity. The second part 
plays the game and keeps count of how many of the users 
spacecraft and the computers have been destroyed. The 
game is over when five spacecraft of either side have been 
destroyed. A new game will start after a reasonable pause. 
Written in Basic, the game is rather slow. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 
Joystick. 

RUNNING THE PROGRAM 

Load in part one and run. After a slight pause the instructions 
are displayed. When the instructions have been displayed 
and the two parameters have been input, the program will 
end. Load in part two, run, the actual game will then start. 
Use the joystick to change the direction of the ship, try to 
destroy the computer's ship. Use the fire button on the 
joystick to shoot at the computer's ship. Hitting the space 
bar at any time in the game will cause the player's ship to go 
into hyperspace. 

PROGRAM STRUCTURE 

The lines of interest in part one are as follows, 
60-70 Limit top of memory. 

80-120 Move the character generator and set up other 

graphics characters. 
130-460 Display the instructions. 



65 



470-520 Input skill level. 
530-600 Input option. 

610-620 POKE last two parameters into top bytes of 
memory. The locations are the two locations 
directly before the screen memory. 

630-830 Character data. 




19 REM SPflCEWRR 

£0 REM *******************#**************'****** 

30 REM 

46 P0KE36S79, 27 = PRINTS VIC SPACEWAR" 
50 PRINT"3jKWWJUST fl MOMENT " 

54 REM 

55 REM LIMIT TOP OF MEMORY 

56 REM 

6Q X=PEEK<56)~2 : P0KE56, X :R0KE52, X 
70 POKES 1 PEEK ( 55 ) : CLR 

74 REM 

75 REM MOVE CHARACTER GENERATOR 

76 REM 

SO CS=£56*PEEK < 52 > +PEEK < 5 1 > =5=7680 

90 F0RI-CST0CS+51 1 : POKEI , PEEK< I+32768-CS) : NEXT 

1O0 READX: IFX<0THEN130 

HO FORI =XT0X+7 = RE AD J = FOKE I * J = NEXT 

120 GOTO10O 

124 REM 

125 REM INSTRUCTIONS 

126 REM 

ISO INPUT "MM INSTRUCTIONS Nliil" ; A$ 

140 IFRf ="N"THEN470 

150 PRINT" WOU ARE ENGAGED IN A" 

160 PR INT "BATTLE TO THE DEATH " 

170 PRINT"NITH A KILL-CRAZED," 

ISO PR I NT "KAMIKAZE MI NOON IN" 

190 PRINT "THE ASTEROID BELT OF" 

2U0 PRIHT"MONOO. " 

210 PRINT"MVOUR SHIP IS PURPLE" 

220 PR I NT "AND THE MINGON SHIP" 

230 PRINT" IS DARK BLUE." 

240 PRINT"MTHE JOYSTICK CONTROLS" 

250 PRINT "YOUR DIRECTION. THE" 

260 PR I NT "RED BUTTON FIRES YOUR" 

270 PR I NT "LASER MISSILES. MAKE" 

2SO PR I NT "A HYPERSPACE JUMP BY" 

290 PR I NT "PRESSING THE SPACE" 

30W PR I NT "EAR. " 

310 PRINT"MPRESS ANY KEY" 

S20 fl*="" :GETA$: IFAf= ,, "THEN320 

530 PRINT'TIt'OU LOSE THE BATTLE" 

340 PRINT" IF YOU:" 

350 PR I NT "Ml ARE BLASTED BY A" 

360 PRINT" NIHGON'S LASER" 

370 PR I NT "ME ARE SUCKED INTO A" 

330 PRINT" BLACK HOLE" 

590 PR I NT "MB COLLIDE WITH AN" 

40O PRINT" ASTEROID" 

4 19 PRINT-MW ARE PULLED INTO" 

42U PRINT" THE SUN BY GRAVITY" 
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466 
470 
480 
490 

500 



430 
440 
450 



PRINT"M5 ARE RAMMED EV THE" 

PRINT" THE MING OH SHIP" 

PRINT" WPRESS ANY KEY" 

A$- " " - GET A* : I F A*= " " THEN468 

PRINT "3 ENTER SKILL LEVEL " 

PR I NT "MB £11 *- TRIVIAL" 

PR I NT ".B TO" 

PR I NT "M SBB- IMPOSSIBLE" 



510 fi$="" :OETA*:IFA*=""THEN510 

520 SL=VAL<A*> - IFSL<1ORSL>9THEN470 

536 PRINT'\T SPACEBAR OPTIONS" 

540 PR I NT "MB 5t3SUN'S GRAVITY" 

550 PR I NT "M SBSLACK HOLE" 

560 PRINT"*] SNSO GRAVITY" 

570 PRINT"MM SELECT ONE OPTION" : 0=0 

530 A$= " " : GETfi* • IFA*= " " THEN5S8 

596 IFfl*-"3"THENG=l 

60O I FA$= " B " THENG=2 

610 P0KES-2.SL : POKES- 1,0 

620 END 

630 BAT A7 1 6S , 1 92 , 248 , 1 27 , 1 63 , 34 , 54 , 63 , 50 
64W DATA7176,4, 14, 62, 227, 227, 62, 14, 4 
650 BATA7184, 50, 63, 54, 34, 193, 127,240, 152 
660 DATA7192, 24, 24, 66, 36, 102,231 , 126, 24 
670 B AT A726S , 24 , 1 26 , 23 1 , 1 02 , 36 , 66 , 24 , 24 
680 BATA7216,3, 15,254,236,68, 168,252,76 
690 D ATA7224 , 32, 1 1 2 , 1 24 , 1 99 , 1 99 , 1 24 , 1 1 2 , 32 
70 S BA TA7232 ,76,252,103 , 63 ,230,254,15,3 
710 DATA7248, 0, 6, 12, 28, 56, 48, 6, 8 
720 BATA7248, 6, 6,48,56, 23, 12,8,8 
730 DATA7256, 0, 24, 24, 24, 24, 24, 0, 
740 D ATA7264 , 6 , 0,0, 62 , 6z > 0, , 
750 BATA7296, S, 112, 126, 102,32,48,48,6 
760 DATA7304,228, 13,37,68,36, 18,33, 193 
77G BATA7312, 6, 48, 43, 32, 162, 126, 1 12,0 
730 EAT A 7320.68, 170, 145,6,34,85, 137, 129 
796 BATA7328, 153,90,66,255,255,68,96, 153 
S60 BATA7336, 129, 137,85,34,6, 145, 176,68 
310 BATA7344,©, 14,126, 162,4,12,12,8 
S20 HATA7352, 193,33, 18,36,68,37, 18,223 
836 DATA7360,0, 12,12,4, 102,126, 14,6,-1 
READY. 
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10 REM SPflCEWflR 2 

20 REM **************************************** 

30 REM 

40 C=22 : R=23 = S=7639 : fl=30720 : BH=37 1 54 

50 Pl-37151 -P2=37152:SL=PEEK<S-2> 

60 F0KE36873, 27 : T=3 : CV=4 : CE=6 = Cfl=6 

70 CS=7 : CQ=0 : CM=0 : X=- 1 = G=PEEK <S- 1 > 

30 V=36878 = S 1 =V-2 : S2=V- 1 DI MBCK < 2 2 > , OCX ( 2 , 2 ) 

90 FORI -9T02 = FORJ=0TO2 = K-X+l 

10G DCK< I , J>=X : OCK< I f J>=X+16 : NEXT J j I 

i 1 BEFFNR >: 2 ) =S+X+C*V 

120 riEFFHE(2)=PEEK<FHP.<Z>> 

130 DEFFNRCZ>-INT<RND< 1 >*Z) 
140 P0KEV-9.£55:PRINT"W -X=S+fl 
1 50 FOR I =XTOX+505 ; POKEX, T : NEXT 
160 P0KE36S79, 62 - FGRI=1 T03+2*3L 
170 X=FNR<C>:Y*FNR<R> 

189 POKEFNfl <0> , 46 = POKEFNfl <9>+fi, CP. = NEXT 

19U IFGO1THEN220 

20 X= 1 1 : V - 1 2 ■• POKEFNfl C > / 20 

210 POKEFNR<0)+fi, CS = SX=X : SV-V 

220 I FG=2THENSX=FNR <,C> : 3V=FNR<R> 

230 X=FNR<C) : V-FNR<R> : IFFNB<@)O32THEN230 

240 EsX:E=V:Q=FNfl<0J : U=-1 :0=FNR<3>-1 

250 POKEFNR<0) , DCE<U+1 , 0+1 > ■• POKEFNfl <6>+fi, CV 

260 X-FNR C C > : V=FNR CR> : I FFNB < ) O32THEN260 

270 H=X:L=V=K=FHfl<0>:M=l =N=FNRC3>-1 

£30 POKEFHfi<0> j DCK<M+1 , N+l.) : POKEFNRC05+A, CE 

290 fl*="" ^GETfl*-lFfl*=" "THEND=FNR<C) :E=FNR<R> 

300 GOSUE1O10 : IFFBTHENX=D : V=E : PX=U : PV=0 : GGSUE680 

310 E=0 ■ F=0 : IFJ0THENB=1 

320 IFJ2THENE=-1 

330 IFJ1THENF-1 

340 IFJ3THENF--1 

350 I FB-0flHHF=0THENB=U - F=0 

360 U=B • 0=F : IFG=0THEN4 1 

378 E=SX-H : F=SV-E : J-SQR<£*E+F*F> 

380 J= < 20- J > /30 = J= 1 -J* J 

390 IFRNIK1XJTHEN410 

40O B=SGNCE) : F=SGN(F) : D=D+B : E=E+F : GGT042& 

410 D-D+U : E-E+0 

420 IFE<OTHENE=R 

430 I FE>RTHENE=0 

440 IFD>CTHEND=0 

450 I FB03THEHD=C 

460 X=D : V=E ■ J=FHB<0> = IFJ=32THEH480 
470 IFJ=46ORJ=20ORFNftC0)=KTHEH820 
4 80 I FNOT < X=SXftNDV=SV > THEH5 1 
490 fl*="WERE SUCKED INTO fi BLACK HOLE!" 
WC-WC+1 GOT0976 



5 1 POKFQ, 32 ■ POKEQ+flj T : G=FNfl<©> 
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520 POKEQ , DC'i CU+ 1 , 0+1 > • POKEG+Pi , CV 

530 J=0 : IFFNRC9»SLTHEN560 

540 M=D-H : H=E-L = M=SGN(M> = N=SGN<N> 

55G IFM=0GRN=0THEHJ=1 

Se© H=H+M = L=L+N = IFH<0THENH=C 

570 IFH>CTHEMH=0 

5S0 IFL>RTHENL=0 

590 IFL<0THENL=R 

600 X=H • V=L 

610 IFFNE<0>=32THEN630 

620 M=FNR < 3>- 1 ; N=FNR < 3 > - 1 : GOTO560 

630 POKEK , 32 = POKEK+Pi, T • K=FHfl < ) 

640 POKEK, DC'i < M+ 1 , H+ 1 > : POKEK+fl , CE 

650 IFNGT(RNB< IX. 1 OR < J= 1 flNDFNR < 9 X5L THEN670 

660 PX=M : PV=H = GOSUB630 

670 GOTO290 

630 Z="PX*PY : POKEV , 8 : IFZ= 1 THEN J=l 9 

69G I FZ=-1 THEN J=9 

700 I FZ=0flNDPX=0THEHJ= 1 1 

710 I FZ=0fiHHP V=0THENJ=1 2 

720 F0RI=1 T01 8 : X=X+PX • V-Y+PY : P0KES2, 230-1 

730 IFIOiTHENP0KEZ,32:P0KEZ+fl,T: IFX>CTHENX=0 

740 IFX<GTHENX=C 

750 IFV>RTHENV=0 

760 IFV<0THENV=R 

770 B=FNB<0) = IFB=32THENS00 

7S0 IFNOT < B=4SORB=20ORFNfl<0 ) =KORFNR <0>=Q> THEN800 

790 l*10i J€KT I : GOTO 320 

800 2»FNfl<0 > : POKEZ , J = POKEZ+fl * CM = NEXT I 

810 POKEZ, 32 : POKEZ+fl, T : POKEV, : RETURN 

32" P0KES2, 230 ■ SOX- 1 = IFSC<0THENSC=0 

830 FC=X+1 = I FFC>CTHENFC=C 

S40 SR=Y-1 : IFSR<0THENSR=0 

850 FR-V+1 ; IFFR>RTHENFR=R 

860 FORX=SCTOFC : FQRY-SRTOFR ■ J=OC?;<X-SC, Y-SR) 

870 POKEFHfl < ) > J : POKEFNB < ) +fl > CQ : NEXT V , X 

88" POKES 1 220 : FQRJ= 1 5T00STEP-1 

89* POKEV, J:FORJ1=1TO50:N£XTJ1 > J 

900 POKEV > > FORX=SCT0FC = FORV=SRTOFR 

910 POKEFHfi<0) , 32 = POKEFNfl<0)+fl, T : NEXTV, X 

92© IFPEEKWO32THEH940 

930 fi#» B WERE VAPORIZED ! 11 : HC=WC+1 : G0T097Q 

940 IFPEEKOOO32THEN960 

950 A*= " TR I UMPHED ! " ; UH=WH+ 1 : G0T0970 

969 RETURN 

970 P0KEV-9,240:PRIHT"^te»ffr , OU ";fl$ 
980 print-mmscore: VIC";WCJ" VOU";NH 
990 F0RJ=1 TO360 ■ NEXT • GOT01 050 

1000 END 

1R10 POKEDD, 127:p=PEEK<P2>P.ND128 
1 020 J0=- < P~0 > •' POKEDD , 255 



1936 P=PEEKCP1 ) = Jl— < < PANES )=0> : J2=-< <PflKD16)=0> 
1640 J3=-< <PAHH4>=0:> : FB=-< <PAND32>=6> : RETURN 
1050 IFWH=5THEN1QS0 
1060 IFWC=5THEN1100 
1676 GOTO140 

10S6 PR I NT" 3 CONGRATULATIONS!" 

1090 GOTG1110 

1180 PR I NT 'TITO EflD" 

1110 FOR J= 1 TO 1 006 : NEXT = RUN 

READY. 



JOYSTICK TEST 



DESCRIPTION 

One valuable addition to the VIC is the joystick, It can make 
game playing much more enjoyable, and often easier. 
This program enables the user to check the position of the 
joystick as it is moved through the four cardinal compass 
points, and to see when the fire button is being pressed. 
The program can also be used as a short input routine within 
a main program, to see which direction the joystick is 
currently being pointed in, and again to check for depression 
of the fire button. 

This program will only work on a simple paddle switch 
joystick. To gain finer control you would require a 
potentiometer joystick, but programming for that is beyond 
the scope of this book. 

EQUIPMENT REQUIRED 

Basic VIC-20 plus joystick. 

RUNNING THE PROGRAM 

The data direction register, DD, is defined in line 40, along 
with variables for the output registers (P1 and P2). 
When run, the program displays the cardinal compass 
points, together with an F (for fire!) at the top of the screen, 
and underneath that a value indicating which way the 
joystick had been moved: a value of zero would indicate off, 
and a value of one, on. 

The routine in lines 120 to 180 checks for current direction 
from the output register, having previously set it back to 
'normal' i.e. the fire button is not depressed, and the joystick 
is stationary in a vertically upright position. 

PROGRAM STRUCTURE 

10-30 Message and title of program line 

40 Set up variables 

50 - 60 Print display on screen 

120 - 190 Joystick position reading subroutine 
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1@ REM TESTING THE JOYSTICK 

20 REM **************************************** 
30 REM 

40 DD=3?154 :P 1=37151 :P2=37152 

50 PRINT'TW N E S W FB" 

60 GOSUB90 : PR I NT "a" J3; JS; Jl i J2; FB 

70 G0TG66 

80 REM 

90 REM SUBROUTINE TO INPUT 

100 REM VALUES FROM THE JOYSTICK 

110 REM 

120 POKEBBj 12?:P«PEEK(P2)flNII12S 

136 J0=-CP=0> 

140 P0KEDB,255:P=PEEK<P1) 
150 J1=-<<PRNDS>=@> 
160 J2=-<<PFiNDl6>=0> 
170 J3=-aPflHD4)=0> 
180 FB--<(PRND32>=0> 
130 RETURN 

200 

READY . 



DEFINE KEYS 



DESCRIPTION 

The four function keys on the right hand side of the VIC are 
probably one of the most neglected parts of the machine. 
Normally they are only used for simple messages e.g. Press 
F1 To Start The Game, normally to do anything else with 
them you would have to buy one of the expander cartridges 
from Commodore. 

However, this short (160 byte) machine code routine, which 
sits at the top of memory, will allow you to assign a separate 
function up to 8 characters long to each of the 8 keys. 
Take great care over the data statements in lines 100 to 220, 
as these are the heart of the program: if a mistake is made, 
the program will not work. 

Each function is defined in lines 450 to 460, where the back 
arrow stands for Carriage Return. In other words, pressing 
function key 1 (using the examples as given) will list a 
program, pressing function key 2 will just print up the word 
GOSUB, and so on. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

Enter the program exactly as shown, and then SAVE a copy 
in the normal way before running it. 

When RUN, provided you've entered everything correctly, 
the screen will clear and the message 'function keys defined' 
will appear, together with the friendly flashing cursor. Just 
pressing the keys will now bring the functions to life. 
The program NEWs itself after running, so that you only lose 
160 bytes from your VIC's Basic memory. To de-activate the 
function keys, hit RUN-STOP and RESTORE together. To 
get them back again, type SYS 7520. 
If you wish to have different functions assigned, simply 
change the data statements in lines 450 and 460. Putting a 
left-arrow after the new keyword will prompt a carriage 
return automatically. To get more than 8 characters, use the 



keyword abbreviations as found in your manual e.g. P shift 
for POKE, and so on. 



PROGRAM STRUCTURE 

10-90 REM statements and copyright message 
100-210 Data statements containing machine 
code routine 

250 - 260 POKE data into memory and calculate 
checksum 

270 If checksum disagrees, print error message 

290 Activate keys, erase previous functions 

300 - 330 Instructions in REM statements 
340 - 390 Perform function key definition 
400 End, and perform NEW 

450 - 460 Definitions for function keys 
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10 REM**************** 

29 REN* * 

30 REM* DEFINE KEYS * 
40 REM* * 
50 REM* EV DAVE TONG * 
60 REM* * 
70 REM* <C> 7/7/32 * 
3S REM* * 
90 REM**************** 

100 DATA 120,169.123,141,20,3,169,29 
110 DRTA 141,21,3,83,133,56,169,96 
120 DATA 133,55,96,160,64,169,0,153 
130 DATA 191,29,136,203,250,96,234,234 
140 DATA 72,133,72, 152,72,165,197,19? 
150 DATA 251,240,44,133,251,41,39,201 
160 DRTfl 39,208,36,24,165,251,42,41 
170 DRTfl 240,172,141,2,243,3,24,105 
180 DATA 8, 105, 128, 133,252; 169,29, 133 
190 DRTfl 253,160,0,177,252,153,119,2 
280 DATA 200,192,8,203,246,132,193,104 
210 DATA 168,104,170,104,76,191,234,170 
220 REM 

230 REM LOAD MACHINE CODE ROUTINES 

240 REM 

250 POKE 55,96-POKE56,29-CLR-Z=0:FOR X=8 TO 95 

260 READ Y:Z=2+Y-P0KE 7526+X, V=NEXT X 

270 IF Z= 12270 THEN 290 

280 PR I NT "DATA ERROR! RE-ENTER" -STOP 

290 SYS <7520> ; SYS <7539> 

360 REM 

310 REM SYS 7520 ACTIVATES THE KEYS 

320 REM SVS 7533 ERASES THE FUNCTIONS 

330 REM 

340 FOR X-l TO 8 ■ READ N* 

350 L=LEN<N$> : IF L<=3 THEN 370 

360 PRINTX;N$:PRINT"S CHARACTERS MAXIMUM ! " : STOP 

370 FOR Y=l TO L : P=ASCCMID*<N$, Y, 1)> 

330 IF P=95 THEN P=13 

3^0 POKE 7607+Y+8*X,P=NEXT Y • NEXT X 

4*0 PRINT "^FUNCTION KEYS DEFINED. " : CLR : NEW 

410 REM 

420 REM PUT YOUR OWN FUNCTIONS HERE 

430 REM < MAXIMUM 8 CHARACTERS! > 

440 REM 

459 DATA "LI ST<-" , " GOSUE " , " RUN*-" , " PR I NT " 

460 DATA "GOTO" , "CHR*< " , "LOAD" , "RETURN*-" 
READY. 



U.S.A. SONG 



DESCRIPTION 

The program when running displays the U.S.A. flag and 
plays the 'Star Spangled Banner'. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

As no expansion is required it is just a matter of loading the 
program and typing run. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows. 



60 Sets registers for three voices and indicates 

GOSUB to draw the flag. 

70 Puts 10 in to volume register. 
80-150 Main loop. 

80 Read music data. 

90 Set sound registers to 0. 

100 Goto 160 at end of the music. 

110 Pause. 

120 Print value X. 

130 Play Music. 

140 Loop for duration. 

150 Increase X and loop. 

160 Check for break. 



260-1270 Data for music configuration: Duration, Voice 1, 

Voice 2, and Voice 3. 
1450-1560 Draw flag. 
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20 REM *****■******:*****'+*********************+ 
30 REM 

40 REM PLAY MUSIC 
50 REM 

60 01=36376 = 32=36374 : 03=36375 = X=300 = GOSUB140Q 

70 P0KE36878, 10 

30 REAPDC..Vi,V2A'3 

90 POKEG1>0 : POKEG2,0 : POKEG3,0 

106 IFDC-6THEN16S 

110 F0RI=1TO50=NEXT 

120 PR i nt 11 maistmmto&ia" x 

130 P0KEG1 j VI : P0KEG2, V2 = P0KEG3, V3 
14G FORI = lTO100*riC:HEXT 
150 X=X+5 ■ G0T086 
160 SVS65234 
170 REM 

138 REM SONGTABLE FOR 
190 REM THE STAR SPANGLED 
200 REN BANNER 
210 REM 

220 PEN DURATION COUNT 
230 REM IS -4- FOR A 
240 REM QUARTER NOTE 
250 REM 

269 BATA6, 195,225, 

270 DATA1, 133,219, 
280 D AT A4, 163,203, 
296 DATA4,i33,209, 
300 D AT A4, 195,207, 
313 EfiT A3, 209,201, 228 
320 DATA3, 21 9, 139,231 
330 BATA1,215, 199, 
340 DATR4,2O9,201, 
350 IiATA4,183,201, 
360 DATR4, 191,215,215 
370 DATA8,195,225,215 
380 DATA2, 195,225, 
390 DATR2, 195,225, 
400 DAT A6, 213, 203, 232 
410 DATA2,215,2l5, 
420 DATA4, 209,219, 
430 DATAS , 207 , 225 , 225 
443 DATA3,201,221,221 
450 DflTfll,207,221,225 
46U BRTfi4 , 203 , 2 1 9 > 225 
470 DRTA4,209,232, 
430 DPJA4, 195,225, 
490 DATA4, 133,219. 
500 DATA4,163,209, 
510 DAT A3, 195, 225, 
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520 DRTfil, 183,219, 
530 DfiTR4,163,209, 

549 BRTR4, 133,209, 

550 BRTH4, 195/297, 
560 BRTR3, 209, 201,223 
578 BRTRS, £19, 199,231 
580 BfiTfi 1,215, 199, 
590 BRTfi4,209,201, 
b00 BRTR4, 183,201, 
610 rflTR4, 191,215,215 
620 BRTRS, 195,225,215 
630 BRTB2, 195,225, 
640 BRTR2, 195,225, 
650 DRTH6 ,219, £09 , 232 
660 BflTR2,2i5,215, 
670 BfiTft4, 209,219, 
630 BfiTflS , 297 , £25 , 225 
690 JRTR3, 20 1,22 1,221 
700 DfiTfi 1,2G7, 22 1,225 
710 BRTfi4,209,219,225 
720 DATfi4,269,232, 
730 DflTfl4,195,225, 
740 DRTfi4, 183,219, 
75Q DRTR4, 163,209, 
760 BRTR3,219,215,232 
770 BRTR1,219,215,232 
730 HflTfi4,219,209,232 
790 BRTfl4,221,215,232 
860 BfiTlfl4, 225, 219,232 
310 BRTfi8,225,219,232 
820 HRTR2,221,215,23£ 
330 IiRTfi2, 219, 219,232 
840 BRTR4,215,£25,231 
850 DRTfi4,219,£32,232 
860 BRTR4, 22 1,235,231 
870 IlflTfiS, 221, 195,235 
880 BRTR4, 22 1,195,231 
890 BRTR6, 219, 209,225 
900 BRTR2,215,215,225 
910 BRTR4,209,219,2£5 
920 IiflTRS, 207,225, 225 
930 BRTfi2,201,221, 
948 BRTR2, 207, 22 1,225 
950 nRTR4,209,219,£25 
960 DRTH4, 183,228,209 
970 DfiTfi4, 191 ,215,215 
980 DfiTHS, 195, 195,215 
990 DRTR4, 195,225, 

1 000 DfiTfi4 , 209 , 209 , 225 
lultt BflTR4,209,215,221 
HU'fi BATR2. 209.219. 225 



1030 DflTfl2,287,2l9,225 
1040 I)flTfl4,201,221,221 
1056 DflTFM, 28 1,22 1,221 
1060 riflTfl4,201,219,225 
1078 ItflTfl4,215,215,221 
10S0 H*Tfl2,221,215-,221 
1690 DflTfl2,219,2l9,219 
1100 HflTR2,215,221,215 
1110 rjftTfl2,289,223,209 
1 120 IiBTfl4,209, 225, 225 
1130 DRTflS, 207, 195,225 
1140 DfiTfl2, 195,225,- 
1158 BRTfl2,195,221, 
1160 IfiTfiS, 209,219, 225 
1178 DflTR2,215,225, 
1180 riPJA2,219,235, 
1190 DATA2,221,235.. 
1208 DflTA3,225,237,237 
1210 DflTfl2,209,228,223 
1228 IlflTfl2,2l5,227,223 
1238 DATA6, 219, 225, 232 
1248 BATA2, 22 1,225,232 
1258 IiflTH7,2l5,225,231 
1268 BflTfll4,289,232,225 
1278 BftTfi, , , 
1230 REM 

1298 REM ************ 
1380 REM * INTERPRET # 
1318 REM *VOUR DATA* 
1328 REM ************ 

r" , "^0 REM 

1348 INPUTS :F0RI*flT0fl+95STEP5: PRINT I"D*" -NEXT: END 
1358 REM 

1360 REM ************ 
1370 REM * INTERPRET * 
13S8 REM *VOUR DflTfl* 
1398 REM ************ 
1480 REM 

1410 REM *********** 
1428 REM #DRflW FLAG* 
1438 REM *********** 
1440 REM 
1458 PRINT" HI" i 
1468 P0KE363S7, 44 
1470 FORI=1T011 
14S8 PR I NT "M 
1490 NEXT 

1508 PR i nt "a" ; 

1510 F0RI-1T0S 

1520 PRINT"Sa *****" 

1530 PR INT" H"; 
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1540 PR I NT" S3* **#*#* 
155G NEXT 
1560 RETURN 
REftDV, 




• - - ■ i. ■ ■ ■ ■ . % 
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DIG1CL0CK 



DESCRIPTION 

A digital clock showing hours, minutes and seconds in large 
characters is displayed on the screen. The clock will display 
the correct time (entered by the user) until the machine is 
switched off. A program which could be modified to act as a 
stop watch or display any digital value. 

EQUIPMENT REQUIRED 

A basic unexpanded VIC-20. 



RUNNING THE PROGRAM 

The program starts with a prompt to input the correct time, 
this is input in the format HHMMSS where H is the hour 
(using a 24 hour clock), M is the minutes, and S the seconds. 
As soon as the return key is pressed the clock is started. 
While the face is displayed it is possible to change the shown 
time at any point by simply entering return. 

PROGRAM STRUCTURE 



The more 
40 

50-140 
150 



160-190 
200-270 
280-310 
320-330 
340-370 

380-390 
400-410 



interesting lines for this program are as given. 
Displays a white screen. 
String array holding large numbers. 
Two dots to separate hours from minutes and 
minutes from seconds. The dot separating 
minutes from seconds flashes every second. 
Inputs the time. 
Display around the numbers. 
Prints enlarged numbers for time plus the dots. 
Sets start of video map. 
Makes dots between minutes and seconds 
flash. 

Pause and beep each second. 
Loop again or enter another time. 
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HOUR MIM 



IB 54 E3 
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16 REN DIG I CLOCK 
20 REM 
30 REM 

40 PQKE36S?9,25 

44 REM 

45 REM LARGE NUMBER CHARACTERS 

46 REM 

50 fl*<0>="ffla mm a mm a snip s >m 
so ft*<n= H H a mm a mm a mxm a mm a w 
70 A$<2>="flia a :?iui sitti a Kama ■" 

88 A$<3;="ffla sraai a iiai m&m a ^sui «" 
90 A*<4>= ,, «a mmta na mm a s?Tsai a a" 
100 A#c.5>="fla :t!in 9 (lima ©mi a *w 9" 
lie fl*(6)= M ffla sssia :?sBia mitn a >bbi 
120 fl$<?>="isa mm a ^bbi a **a*i a «»iai a a M 
130 fi$<s>="fla 9.«aaia*»8i KiaaasiHi »" 
140 A$o:>="fls »»aaa a *»ai mm a usai b u 

150 DR^MM^rm" = PRINT":*" 
160 PRINT" HHMMSS 
170 PRINT "FOR EXAMPLE 001220 

i so i nput "Mmmtriremvom/t- ; ta* 

190 IFLEN<TR*>=6THENTI*=TR* 
200 PRINT" 0?ftIW««a ■"; : FOR 1 = 1 TO 19 
210 PRINT"."; = NEXT: PRINT"! ■" 
220 F0RI=1T09 

230 PRINT "I aiS" 
240 NEXT 

250 PRINT"Ja»WBMfiSft>»HiJUR»I MIN.M MSEC . WTOsftftlSWW 
260 PRINT"!!"; : PRINT" a "S".; :F0RI=1TQ19 
270 PRINT"."; : NEXT: PR I NT "STB" 

230 print "nimmmm" ; ■■ for i = 1 tos 

290 PRINTfi*<VflL<MID*<TI*, I - 1 > > > " WTTTT 1 ; 
300 I FI-20R I =4THENPRINTDP$ ; 
310 NEXT 
320 TJ=4096 

330 I FFEEK < 643 > =30THENTJ=763S 

340 P0KE<TJ+234),S1 :pOKE<TJ+278),31 

350 T*=TI* 

360 IFTI*=T*GOTO360 

370 POKE < TJ+234 ) , 32 : POKE < T J+27S > > 32 

330 FORX=1TO200 : NEXT = P0KE36373, 15 : P0KE3SS76, 255 

390 POKE3687S.00 

400 GET A*" IFR$O"*"GGTO280 

410 GOTO 150 

RE ADV. 
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LEAP FROG 

DESCRIPTION 



Leap Frog encourages the player to develop mental agility. 
There are two sets of frogs, five of one colour and five of 
another. The player has to move them one at a time to the 
other side, until the positions are reversed. There are a 
minimal number of moves in which the game can be 
completed but praise is always given at the end of the game. 
An interesting feature of the program is the use of small size 
numerals, created like the frogs by using programmable 
characters. 



EQUIPMENT REQUIRED 



Basic VIC-20 plus a minimum of 3K memory expansion. 
RUNNING THE PROGRAM 

There are eleven numbered spaces displayed on the screen, 
above the five spaces on the right side are five green frogs, 
and above the five spaces on the left are five white frogs. A 
frog can only be moved into an empty space and can not 
jump over more than one frog to get there. A prompt 
requests the move, simply enter the number of the frog you 
wish to move, invalid moves will generate the relevant error 
messages. When you have completed the game the 
computer will display your score. 

PROGRAM STRUCTURE 



The lines of interest in this game are as follows. 
40-50 Limits the memory. 
70 GOSUB to routine for setting up the frogs 

characters. 

100-160 Sets up different strings for different frogs 
-white or green, jumping or stationary. 

210-230 Sets up the array for where the frog is and 
which colour it is. 

260-320 Prints actual display on the screen. 

330 GOSUB to routine for inputting your move. 



85 



350-380 Checks for legality of your move. 
400-510 Motivates the frog. 

520-560 Reviews the line up at the end of the game. 
570-900 Prints informative messages. 
910-950 End of program. 

960-1050 Inputs moves using routine at line 1390. 
1060-1380 Prints messages of illegal moves and reprints 
display. 

1390-1480 Actual input from Keyboard. 
1490-1550 Sets up graphics characters. 
1560-1700 Data for characters. 
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* LEFiP — FROG * 



ENTER YOUR MOVE ■ 
FROM 



10 REM LERP FROG 

28 REM a!.-*************************************** 
30 REM 

34 REM 

35 REM LIMIT TOP OF MEMORY 

36 REM 

40 POKE 56, PEEK < 56) -2 = POKE 52, PEEK < 56) -2 

50 POKE 5 1, PEEK-: 550 - CLR 

60 PRINT"H" : POKE 36979,42 

70 GGSUB 1490 

30 POKE 36869,255 

9@ MMfia9> 

94 REM 

95 REM SET UP STRINGS 

96 REM 

100 F£C0>=" " 
110 F$<l>="iD" 
126 F*<2>="#" 

ISO flN*a 

140 AM*<2>="sf?" ■ 
150 RN*<3>sF«<0) 
160 PP^'aHdHM" 
170 REM 

ISO Tl*-"3aBI B" 

190 Tl*=TU+CHRt<13)+" 

200 Tl*=Tl$+":# LEAP - FROG #■" 

204 REM 

205 REM PUT FROGS INTO AN ARRhV 

206 REM 

210 FORK=1T05 
228 fi(K>=l :fl(K+6>=2 
230 NEXT ■fl<6>=0 
240 C=0 

250 PRIMTTi*: PRINT: PRINT 

254 REM 

255 REM PRINT FROGS ON THE SCREEN 

256 REM 

260 FORK=1T011 
270 PRINTF*(ft<K)>J 
280 NEXT: PR I NT "MM" 
290 PRINT 

300 PR I NT ■ TSM 23456789 : i " 
310 PRINTPP^WSb&M 11 

320 PRINT " REENTER VOUR MOVE! - B" ; 

330 GOSUB960 = FF=@ 

340 PRINT"M ,, :TD=1500 

350 IFFKS>=STHEN1060 

360 IFABS<S~E»2THEN1 090 

370 IFfl<E> THEM 116 

330 IFE>HTHOIFF=l =E=12 

390 X=0 



394 REM 

395 REM JUMP FROG 

396 REM 

460 PRINTPP$;TftB<S-l>; ■ 

416 IF ft<S)=l THEN PRINTRN$<1); : COTO430 

429 PRINTfiM* <2> :> 

439 FORL=1TO500:HEXT 

440 PRINT"H"AN*<3>; 
450 FORL= 1 T05U : NEXT 

460 PRINTPP*; TABCE-l > ; RN*< A<S> > ; 
470 FOR L-i TO 300 ■" NEXT L 

430 FORK=1TO150-NEXT 
490 PRINT*IT , F*<6<S>>; 
590 C=C+1 

sis R';e>=a«;s) ^H<s>=0 

520 F0RI=1T06 
539 X»X+R<I>*10tI 

549 NEXT 

550 I FFF THEN 1220 

560 IFINT<XX>222220THEN310 

564 REM 

565 REM FINISHED 
5^6 REM 

576 P0KE36869, 240 : PRINT "KKWMMM' 1 : IFC<60THEN62O 
530 POKE36S69.240 

600 PRINT'TJSNOU FINISHED, AT LAST!!!" 

610 GOTO650 

620 IF C<50 THEN690 

630 PRINT" M *' 

640 PRINT"!"]sNOT A BAD RESULT!!!* 1 

650 PRINT "M VOU NEEDED" C" MOVES" 

660 PRINT "W TO SOLVE THE PROBLEM" 

670 PR I NT "VOU RE ALL V SHOULD DO BETTER! I" 

680 GOTO8S0 

690 IFC<40THEH760 

700 PRINT" final ■ — 

71© PRINT"SVERV NELL DONE!'!" 

720 PRINT"Mt'OU SUCCEEDED TO" 

730 PRINT" COMPLETE THE GAME IN" 

740 PRI NT "ONLV " C " MOVES - AN" 

750 PRI NT "ABOVE AVERAGE RESULT ! " ■ GOTO8S0 

760 IFC=35THENS30 

770 PRINT" SCJaj " 

730 PRINT"nSEXCELLENT ! ! VOU ARE A REAL EXPERT ! ! !" 
790 PRINTMSWOU HAVE DONE IT IN" 
300 PR I NT " ONLV "C" MOVES, THIS" 

S10 PRINT" IS ALMOST THE BEST POSSIBLE RESULT. " 
820 GOTO880 

830 PRINT" SCW " 

340 PRI NT "naC-OMGRATULATI ONS ! " 
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S50 PRINT"NOBODV CRN DO IT BETTER" 

See PRINTiMjU COMPLETED THE GAME IN 35 STEPS. :l 

878 PR I NT" THIS IS THE RESOLUTE MINIMUM. " 

880 PRINT"H8WOULD VOU LIKE TO PLflV PGR IN ? <V/H>" 

89@ GET R$ : I FR* <> 11 V " ANBftfO " N " THEN390 

903 I FA$= " V " THENP0KE36S69 , 255 = G0T02 1 

904 REM 

905 REM END 
90S REM 

910 POKE 56, PEEK < 56 > +2 
920 POKE 36369,240 
930 POKE 36379,27 

940 PR I NT " JSETHANKS FOR PLRVING 'LEAP-FROG' 
950 END 

954 REM 

955 REM CALCULATE MOVE FROM ROUTINE RT 1390 
556 REM 

960 POKE198.0 

970 DEL-0 : PRINT"."]" 

930 PRINTTAB<23>; " EFROM TTF i 

990 PRINTTAB<28>;"3 HI" ; 

1000 GOSUB1390:IF DEL THEN PRINT"!!"; : GOTO 970 

101O S=VflLO:$) = PRINT" S) TO HI" J 

1U20 FOR 1 = 1 TO 11: IF fKI>=0 THEN C*=STR*a> 

1O30 NEXT 

1040 PR I NT" 113" C*; 

1050 E=VRL<C*>: RETURN 

1054 REM 

1055 REM ILLEGAL MOVE 

1056 REM 

1060 PRINT" flsCITHERE IS NOBODV RT" 

1070 PRINT" ^POSITION #"S n ll.»" 

1030 PRINT" EPLEASE TRV AGAIN! " : GOTO 1190 

1090 PRINT" EOTIEV, I CANNOT JUMP" 

1100 PRINT" ETTHfiT FAR! ! " : GOT01 190 

111.0 PRINT" SJsQHE'tS WHAT DO VOU THINK".; 

1120 PRINT" EJr'OU ARE DOING??" 

1130 PRINT" SWTHflT IS MV BEST" 

1140 PRINT" 3FR I END, SITTING ON" 

1150 PRINT" SWSEAT NR. "E"ll! ! VOU" 

1160 PRINT" SCAN'T EXPECT ME TO" 

1170 PRINT" 0Um ON HIM!?! PLEASE" 

1130 PRINT" STTRV AGAIN" : TD=60OO : GOTO 120O 

1190 TD-3800 

1 200 FORK* 1 TOTD = NEXT 

1210 TD=30O0 = G0T0250 

1 220 PRINTPP* ; TAB < 1 1 > ; F*<0> j KT > 

1230 PRINTF*(fl<E>>; 

1240 m= u ;:w;i iiMauir 

1 250 PR I NT" mm 1 , TRB'v 1 2 > ; 
1260 FORK=1TQ20 



1270 PRIHT-'STft* .: :ft=SIN<3> 
1280 PRINT"!" ft*; :fl«SIN(3> 
1296 NEXT; PRINT" MtffiRW" 

1300 PRINT" " 

1310 PRINT" SHOW LOOK WHAT VOU HAVE DONE! ! " 

1 320 PR I NTPP* ; " n" TAB ( 34 > ; AN* < > ; 

1330 F0RK=72T00STEP-4 

1348 PRINTF*<fl<E>>; "II" :ftN*<0>; 

1350 FORL=iTOK : NEXT 

1360 PRINTF^^ + 'W; 

1370 NEXT:fl<12>>=0 

1 330 PR I HTF* < " TITm" : G0T08S0 

1334 REM 

1335 REM INPUT MOVE FROM KEYBOARD 
1386 REM 

1390 GETC* : I FC* = " " THEN 1 390 

1 408 I FC*=CHR* < 20 ) TH£NDEL= 1 : RETURN 

1410 IFC*<" 1 " ORC*> "9" THEN 1390 

1420 PRINT'-cTC*; : IFC*<>" 1 "THENRETURN 

1 430 I Fft < 8 > *fl C 9 > #R < 1 > *fl < 1 1 > THENRETURN 

144a PRINT" 3 HI"; 

1450 GETCC* : IFCC*=" "THEN 1450 

1460 IFCC*=CHR*<20>THENDEL=1 ■ RETURN 

1470 IFCC*<"0"ORCC*>" 1 " THEN 1450 

1430 C*=C*+CC* : PRINT" S"CC*j '■ RETURN 

1484 REM 

1435 REM SET UP GRRPHIC CHARACTERS 
1486 REM 

1490 FOR 1=1 TO 15 
1500 READ X 
1510 FOR J=3 TO 7 
1520 READ K 
1530 POKE X+J,K 
1540 NEXT J, I 
1550 RETURN 

1554 REM 

1555 REM CHARACTER DATA 

1556 REM 

1560 DATA 7424,0,0,0,0,0,0,0,0 

1570 DATA 7560,16,43.16/16,56,0,0,0 

1580 DATA 7568,56,8,56,32,56,0,0,0 

1590 DATA 7576,56,8,56,3,56,8,0,0 

1600 DATA 7534,40,40,60,3,8,0,0,0 

161© DRTA 7592,56,32,56,8,56,0,0,0 

1 620 DRTA 76O0, 56, 32, 56 , 40 , 56 , 8 ,0,0 

1630 DATA 7608,56,8,16,16,16,0,0,0 

1640 DATA 7616,56,40,56,40,56,0,0,0 

1650 DATA 7624,56,40,56,8,56,0,0,0 

1660 DATA 7632,46,106,42,42,126,0,8,0 

1670 DATA 7640,36,108,36,36,126,0,0,0 

1 680 DATA 7664 , 24 , 1 39 , 255 , 60 ,126, 66 , 1 95 , 9 



1690 DRTh 7672,153,189,126,60,126,66,66,195 
1790 DfiTR 7552, 56, 40,40,40,56,0, 0,0 
REflDV. 



RUBIK'S CUBE 
DESCRIPTION 



A two dimensional version of the popular cube designed by 
Messer Rubik. The game demands a high degree of con- 
centration to solve the puzzle. All six faces of the cube are 
shown and one has to remember where and which side 
joins what. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

The primary instructions involved in the running of the game 
are to rotate a face of the (flat) cube. An anti-clock wise 
rotation is achieved by entering the number of the face to be 
moved. To rotate a face in a clockwise rotation a minus sign 
must be typed before the number. 

Once you have completed the cube, or have become stuck, 
hit the space bar, this will result in the end of the game. A 
choice of a different number of twists is given at the 
beginning of the next game to facilitate ease or difficulty in 
completing the next game. 

PROGRAM STRUCTURE 

Beiow is a listing of the more interesting lines that make up 
the program for this method of playing the Rubik's Cube. 
40-50 Limits the top of memory for graphics characters. 
70-80 Inputs the initial number of twists to mix up the 
cube. 

100-230 Displays the cube on the screen. 
240-290 Array F holds the center poke location for each 
face. 

300-310 Holds the character array for each face. 
320-420 POKE locations for the rest of the pieces in each 
face. 

520 GOSUB to create characters. 
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530-570 POKE for character face and colour. 

610-810 Rotates the faces. 

890-1010 Inputs moves and decisions. 

1020-1070 Inputs the cycle for mixing the cube rather than 

have this as a random factor. 

1080-1150 Sets up graphics characters. 

1160-1220 Character data. 




10 REM RUE IK'S CUBE 

28 REM **********************!****************** 
36 REM 

34 REM 

35 REM LIMIT TOP OF MEMORV 

36 REM 

40 POKE 56iPEEK<56>-2:P0KE 52, PEEK < 56 5 -2 
50 POKE 51, PEEK < 55) :CLR 
60 DIMGC5, 12) ■ ZZ=3©720 = P0KE36879, 12? 
?0 PRINT" DUMBER OF TWISTS TO MIX" 

80 input" a ia";P 

90 M=l 

94 REM 

95 REM DISPLAY CUBE 

96 REM 

100 PRINT'TT 
110 DIHF<5,S) 

120 PRINT"MSa < 1" 

130 PRINT":-} 15 I" 

140 F0RI=1T04 

150 PRINT" Zi I l":NEXT 

160 PRINT" 3 i 1 1 1 1" 

173. PRINT" a 14 )1 12 13 I" 
130 FGRI=1TG4 

190 PRINT" St I I I I": NEXT 

208 PRINT" a 1 i 1 1 

210 PRINT" a 16 I" 

220 F0RI=1T04= PRINT" S I I": NEXT 

230 PRINT" a 1 

234 REM 

235 REM SCREEN LOCATIONS OF CENTRE OF EACH FfiCE 

236 REM 

240 F<C0, 0) =7680+8+ <1 2*22) 
258 F <1, 8> =7680+ 13+ CI 2*22 > 
260 F <! 2, 0> =7680+ 18+ <1 2*22) 
278 F < 3 j ) =7680+3+ C 1 2*22 > 
2S0 F<4, 0) =7680+8+ < 6*22) 
290 F<T5,0> =7680+8+ (13*22) 

294 REM 

295 REM CHARACTER FOR ERCH FACE 

296 REM 

300 C<0>=5S:Ca>=59-C<2>=60: 
310 C<3)=61 :C(4)=62:C<5)=63 

314 REM 

315 REM RELATIVE POSITIONS OF PIECES TO CENTRE 

316 REM 

320 F0RI=0T05 
330 K=F(L8) 
340 Fa, l)=K-23 
358 FCI,2)=K-22 
368 F<I*3>=K-21 



370 FCI,4>=K+1 
380 F<I,5>=K+23 
390 F<I.-6)=K+22 
480 Fa,7)=K+21 
410 Fa,S)=K-l 
420 NEXT 

439 FORI=0TO5 

440 FORJ=0TO9STEP3 
450 RERUN 

460 F0RK=1T03 

470 RERBN2 

430 G<I,J+K>=F<N,N2) 

490 NEXT 

500 NEXT 

510 NEXT 

520 GOSUB 1080: POKE 36863,255 

524 REM 

525 REM IUSPLfiV HCTURL PIECES OF CUBE 

526 REM 

530 FORJ=0TO5 
540 F0RI=8T08 

550 POKEFU, I>,CuD :ROKEF<J, I)+ZZ,C<J>~58 
560 NEXT 
570 NEXT 

580 IFP<=0THEN1010 
590 GOTO8S0 

599 REM 

600 REM MOVE PIECES 

601 REM 

610 S1=PEEK<F<I,1>> 
620 S2=PEEK<F<I,2>> 
630 F0RJ=1T06 

648 POKEF< I>J)j PEEK<F< I , J+2) > : NEXT 

658 PGKEFa,7>,Si 

660 P0KEF<I,3),S2 

670 S1=PEEKCGCI,1>> 

686 S2=PEEK<G<I,2>) 

690 S3=PEEK05CI,3>> 

700 F0RJ=1T09 

710 P0KEG<I,J>,PEEK<Ga,J+3>) 
720 NEXT 

730 PDKEGCI, 10>,S1 
74W P0KEG<I>lO,S2 
750 P0KEGa,12>,33 
760 FOR J=0 TO 5 
770 FOR 1=0 TO 8 

780 POKE F< J, I > +ZZ , PEEK CP < J > I > > "58 
79R NEXT I 
SUiti NEXT J 
Q1G RETURN 

f C0 MTfl'l , 7 • 6.. 5, 1 , 1 , 8, 7 , 5 , 3 , 2 * 1 . 3 5 * 4 , 3 



830 DATA4, 5, 4, 3, 2, 1,3,7,5,5,4,3,8,5,4,3 
840 DATA4,3,2, 1, 3, 1 * 8, 7, 5, 7, 6, 5, 1 ,5;. 4.. 3 
350 DATA4, 1,3,7,0, 1,8,7,5, 1 ,S, 7,2,5,4,3 
360 DATA2,3,2,1, 1,3,2, 1,0,3,2,1,3,3,2,1 
870 DATA0, 7,6, 5, 1,7,6,5,2,7,6,5,3,7,6,5 
380 FORX*1TOP:I-XNT<RHD(1>*6> : GOSUKW : NEXT 

884 REM 

885 REM INPUT MOVE 

886 REM 

890 PRIHT"Sa«aiOVE:l~6" :PRIHT"St OR-" 
900 IFM>2TH£NP0KE768G, 173 
910 IFM<2THENPOKE76S0,169 

929 POKE38400, : OETfl* 

930 IFA$=""THEN920 

945 IFR$="-"THENM=M+2 : M=HAND3 : GOTO890 

95© IFAfO" " THEH970 : REM RESTART 

960 POKE 56 , PEEK C 56 > +2 : P0KE36369 , 248 = RUN 

970 A=VAL<ASO ■ IFA-0THEN920 

98S IFfi>6THEN928 

990 FORN=lTGM : I=A-1 : GOSUB680 ; NEXT 
1008 M=1 : GQTOS90 
1010 IFP=0THEH390 

1020 INPUT"H5ROUP CVCLE- STRING" ;G* 

1830 INPUT"«NUMBER OF CVCLES IliBKiBBBI" ;NC 

1048 IFNC<1THEN102S 

1850 FORCV-1TONC: FORGG=iTOLEN<G*> 

I860 I=VAL<MIB$<G$,GG, 1))-1 : GOSUB600 : NEXT : NEXT 

1078 GOTO 1830 

1874 REM 

1075 REM SET UP GRAPHICS CHARACTERS 

1076 REM 

1880 FOR 1=1 TO 7 
1890 READ X 
1100 FOR J=8 TO 7 
1110 READ K 
112S POKE K+J,K 
1130 NEXT J 
1140 NEXT I 
1158 RETURN 

1154 REM 

1155 REM CHARACTER DATA 

1156 REM 

1168 DATA 7424,0,8,0,0,8,0,8,0 
1178 DATA 7632,8,127,127,127,127,127,127,127 
1188 DATA 7648,0, 127, 127,127, 127, 127, 127.. 127 
1198 DATA 7640,8,127,127,127,127,127,127,127 
1208 DATA 7656,8,127,127,127,127,127,127,127 
1218 DATA 7664,8,127,127,127,127,127,127,127 
1228 DATA 7672,0,127,127,127,127,127,127,127 
RE ADV. 



BOSS PUZZLE 



DESCRIPTION 

A test of mental agility. The aim of the game is to rearrange 
numbers from to 15 and one space into the following order: 

12 3 4 
5 6 7 8 
9 10 11 12 

13 14 15 

To start, the numbers are randomly placed in the grid. By 
moving numbers into and out of spaces, they can be 
rearranged. While the game is being played, a clock ticks 
away in the top right corner of the screen and a counter 
counting the number of moves taken is displayed in the top 
left corner. A colourful display, and quite enjoyable to play. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

After typing run, the program displays one screenful of 
instructions. After hitting return, the grid with numbers in 
order will appear and then start to shuffle. When the 
shuffling is completed, the clock starts and the game begins. 
The directions are obtained by pressing the function keys. 
The directions corresponding to each function key are 
displayed constantly on the top of the screen. 

PROGRAM STRUCTURE 

The lines of interest in this game are as follows: 
70 Subroutine to pause. 

100-130 Subroutine to display square containing number 

at coordinates p,q. 
160-320 Print instructions. 
350-420 Set up variables required. 
450 480 Draw board on screen. 
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510-530 
560-620 
650-670 
700-720 
750-940 

970-1070 
1100-1190 



Fill in squares. 

Shuffle squares with random moves. 
Start game. 

Check to see if the squares are in order. 
Accept and perform move input using function 
keys. 

Give nasty display. 

Give result and input for another game. 



IS REM BOSS PUZZLE 

as rem Mmmw*m**MW*mmM********wmM* 

39 REM 

40 GOTO 160 
50 REM PAUSE 
e@ REM 

70 FuRX=lTO1000 = NEXT : RETURN 

30 REM DRAW SQUARE AT COORDINATES P,Q 

100 N=S(P,Q) = PRINT "3"; LEFT* <R$,5+3*P>; 

110 PRIMTLEFT*^D*,4+3#Q?J "S" JMID*<CO*,N; 1>J 

120 PRINT" j!Mm"JN;"ll".i =IF NO0THEN PRINT" " 

130 PRINT "Mllll "; : RETURN 

140 REM INSTRUCTIONS 

15S REM 

160 C5=36363-P0KE C5 , PEEK < C5 ) 0R2 : POKE 36879,27 

170 PRINT'TMHBOSS PUZZLE " 

ISO PRINT"MS» p OU WILL EE SHOWN A 4" 

139 PRINT"EV 4 MATRIX OF SQUARES" ; 

200 PR I NT "NUMBERED 1 TO 15, WITH"; 

216 PR I NT "ONE SQUARE MISSING. " 

220 PRIHT"WTHE COMPUTER WILL THEN"; 

230 PR I NT "SHUFFLE THE SQUARES" 

240 PR I NT "RANDOMLY. " 

250 PRINT"WTHE OBJECT IS TO SLIDE"; 

260 PRINT "THE SQUARES BACK INTO" 

270 PRINT "THEIR ORIGINAL ORDER" 

2S0 PRINT"USING THE FUNCTION" 

290 PRINT"KEVS." 

3O0 PRINT ,, MBBPRESS sRETURNi TO START"; 
310 POKE 

320 GET A$^IF A*OCHR*<13> THEN 320 
330 REM SET UP VARIABLES ETC 
340 REM 

350 SB=36879 = V0=36378 : S 1 =36874 = S3=36S76 

360 POKE SB > 26 : POKE V0,5 

370 DEF FNR<X>=INT<X*RNIK1>> 

330 DIM S<3,3>:C0*="««kMMkfMMM" 

356 F 1 *=CHR* ( 1 33 > : F3* SS CHR*< 134) 

■100 F5*=CHR$<135> :F7*=CHR*<136> 

41 Bf= " slPldlsMp^lPlsrsIiiIdlflMd^KIiittftli!!?)" 

430 REM DRAW BOARD 
•140 REM 

■150 PR I NT ".Til EOSSaHMMlMi 1" 

460 FOR X=l TO 12 PRINT"HMWI I" 
470 MI 'XT ; PRINT">»»il 1 1 " 

430 PR I NT " sftPL E ASE WAIT"; 

496 REM I- ILL IN SQUARES 
500 REM 

510 ( |-0 : FOR Q-0 TO 3: FOR P-0 TO 3 



526 KNN+l:S<P,Q>=N:GOSUB 160 : NEXT : NEXT 
530 F0RV-1T04 : GOSUB70 ■ NEXT 
546 REM SHUFFLE 
550 REM ■ 

5h0 FOR X=l TO 50 = POKE S3.- 128*C1 + .5*RNDC1 >> 

570 P 1 =FNR C 4 > = P2=FMR ( 4 > : Q 1 =FNR < 4 ) : Q2=FHR< 4 > 

530 IF P1=P2 AND Q1*Q2 OR SCP1,G1>=16 OR S<P2,G2>=16 

THEN 579 

590 REM 

T=S(P1; Ql > : S<P1 ,Q1>=S<P2, Q2> :S<P2,Q2>=T 
610 P=P1 •■ 0=01 : GOSUB1O0 = P=P2 ■ Q=Q2 = GOSUB 100 
620 NEXT : G0SUE73 : POKE S3,0 
630 REM START PLAV 
640 REM 

650 F -3 ; 0=3 ■ T I * =" 00G000 11 

66d PRINT ,, a ,, ,LEFT*<B*,19);"Bi Fl = UP "J 
676 PRIHT"F7=B0WN" : PRINT" F3 .= RIGHT F5=LEFT"; 
630 REM CHECK IF IN ORDER 
630 REM 

7S0 H=0 = FL=-1 : FOR X=0 TO 3 = FOR V=0 TO 3 
710 N=N+l:IF S<Y,XX>N THEN FL=8 
720 NEXT : NEXT : IF FL THEN 976 
730 REM ACCEPT AND PERFORM MOVE 
740 REM 

750 POKE 198,0 

760 GETA* : IFA$O u " THEN 300 

770 PRIHT"« M .;TAE<7:>;LEFTf <TI$,2>; " "; 

780 PRINTMID*<TI*,3 J 2>J " " J RIGHT*<TI$, 2) ; 

790 PRINT TREa7>;G; :GOT0 760 

890 IF N0T<A*=F1* AND Q03) THEN 830 

810 S(P,Q)=S<P,Q+1> :GOSUB180 

820 Q=Q+1 :FX=250:GOTO938 

830 IF N0KA$=F7S AND QO0> THEN 860 

840 s<p,q>=s<:p,q-i> : GOSUB 100 

850 0=0-1 = FX=220 = GOTO930 

860 IF N0T(A£=F5$ AND F03> THEN 890 

870 S<P,Q)=S<P+1#Q) : GOSUB109 

880 P=P+1 : FX=230 ^ G0T0930 

390 IF N0T<A*=F3$ AND POO) THEN 920 

930 S C P , Q > =S < P- 1 > Q ) : GOSUB 1 00 

9 1 P=P-1 : FX=240 : GOTO930 

920 GOTO 750 

930 POKE S3,FX:S<P,Q)=16 

940 GOSUB 1 00 : G=G+ 1 : POKE S3, = GOTO 700 

950 REM GIVE NflSTV DISPLAV 

960 REM 

970 T1*=TI*:GOSUB70:FOR X=1TO106 
988 PRINT "3".: LEFT*<D$, 22#RHD< 1 >>.: 
990 PR I NTLEFT* < F.$ > 2 1 *RND CI);; 
1000 FRINTMID4K C0$, 1+16*RND(1 > , 1) ; "W 
1810 IF RND < 1 X . 5 THEN PRINT" S" i 
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1020 PRINT "DONE IT!".; 

l£i:-:£i POKE SEj 1+255*RNIK 1 > '■ POKE VO, l+X/10 
1U40 FOR V=0T02 POKE Sl+V, 123*a+RND< 1 )> 
1050 NEXT : NEXT : POKE VO.- 15 ' POKE SI +3, 220 
1 Ofi @ G03UB79 : GOSUB70 : POKE SE , 27 
1 070 FORV=0TO4 : POKE S 1 + V , • NEXT 
1030 REM GIVE RESULT 
1O30 REM 

1100 PRINT'THSIT TOOK VOU" J G; "MOVES" 

1110 PRINT" AND ",: :fl*»LEFT*<Tl*,2> 

1120 IF fl*O"00" THEN PRINT fl*;" HOURS" 

1130 PRINT MID*<Ti*i3i2>;" MINUTES" 

1143 PRINT RIGHT$<T1$,2>;" SECONDS. " 

1150 PRINT"MS*NOTHER GAME? ";-POKE 198,0 

11S0 GET A* = IF A*0"Y" AND A*0"N" THEN 1160 

1170 IF A*="N" THEN 1190 

1130 PRINT "VES" : GOSUB 70:CLR:GOTO 35© 

1 190 PRINTW : PRINT'MTHflNKS FOR PLAYING. " : END 

RE REV. 



SKETCHING 1 



DESCRIPTION 

A program which allows the user to put Commodore 
graphics symbols anywhere on the screen. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

When loaded and running the program will display a 
selection of characters at the top of the screen accompanied 
by a cursor. By manipulating the joystick and depressing the 
'fire button' over the users choice of character, the user may 
then position the character anywhere on the screen he 
chooses by, again, depressing the 'fire button'. 
To change the colour of the screen and the border the user 
may depress the 'C key and, entering the correct co- 
ordinates, may alter the screen to his satisfaction. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows. 

70-80 Sets up control registers. 

120-140 Puts characters up on the first two lines of the 

screen and reverses the first character to signify 

the cursor. 
200-290 Checks the joystick. 

350 When 'fire button' is depressed and situated on 

the top two lines, the joystick will pick up the 
character. 

360-320 If the 'fire button' is depressed while the cursor 
is in the rest of the screen the joystick will drop 
the character and/or stop dropping the 
character. 

380-420 If a movement is input checks whether it is in 
the screen and then moves the cursor. 

450-500 If 'C is depressed, input 2 values to change the 
screen and border colours. 0-9. 
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IS REM SKETCHING 1 

^ y ^EM ^4* ^K-^ ^* *^ ^ ^ ^ ^ ^ ^ ^* ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

30 REM 
40 REM 

50 REM SET ALL SOUND REGISTERS TO ZERO 
SO REM 

70 FOR J=36874T036876 : PGKEJ, 8 = NEXT : P0KE36S78, 1 5 

SO P0KE36379, 8 = FRINT'W J : V=36S7S = P0KE3687S, 1 5 : R=0 

90 REM 

ISO REM PRINT GRAPHICS CHARACTERS ON SCREEN 
HO REM 

120 PRINT "Sis ss H-S- mm-J* III I ■ n r LJ " "■ I H" ir»0~" ; " 

1 30 3=7680 : C=38400 : H=8 

140 X=PEEKOS> : POKES. X+12S ; POKEV, 288 

1 50 FOR J=0TO2S = NEXT J 

160 REM 

170 REM LOOK FOR INSTRUCTION FROM 
188 REM KEYBOARD OR JOVSTICK 
190 REM 

200 P0KE37i54,127; J0=-O:PEEKC37152>HNIil2S;=0> 
210 F0KE37154, 255 = P=PEEK<3715U 
220 GETfl* : IFfl$="C"THEHGGSUE438 
230 H=VAL<A*>-1 ■ IFAO-lTHENR=fl 

240 j i =- ( >: p finds :> =0 > 

250 I FN AND S > 7 7 4 3T H E N X = CR 
268 J2=- ( < F AND 1 6 > =8 > 
278 J3=- < < PAMD4 ; =8 > 
230 FE=-<CPflND32)=0) 

290 POKES , X = POKEV i : IFU=1 ANDS>672 1 THENPOKEC , R 
308 REM 

318 REM CHECK MOVEMENT IS WITHIN TOP TNG 
328 REM LINES AND PICK UP CHARACTER IF 
330 REM FIRE BUTTON IS PRESSED 
34 fi REM 

35G I F FE A NE S < 77 43 TH E H CR = X ■ W=8 : GOT0140 
3G0 I FFERNDS>7742ANDM= 1 THENW=W*-1 +1 = M=Q 
370 IFFE=0THENM=1 
330 IFJ0flNDS<31S5THENS-S+l =C=C+1 
390 I F J 1 AN D S < 8 1 64 TH E N S = S+ 2 2 : C=C+22 
480 IFJ2flNDS>7680THEN3=S-l ;C=C-1 
4 1 O I F J3ANDS>770 1 THENS=S-22 = C=C-22 
428 GOTO 140 

448 REM CHANGE SCREEN AND BORDER COLOURS 
458 REM BV INPUT I NG TWO VALUES AFTER 
468 REM PRESSING 'C 
478 REM 

488 P0KE36S76, 8 : FORJ=1TO108 : NEXT 
498 GETfl* = IFA*=" "THEH438 
500 fl=VflL<fl*> ■A=A-1 

518 P0KE36879, < PEEK < 36879 ) AND 1 5 > + A* 1 6 
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520 FORJ=1TO100 : NEXT = RS=" " 
530 GETflt ■■ IFfl*=" "THEN530 
540 H=VRLCR*>:n=R-l 

550 F0KE36879, f PEEK C 36879 ) RNB248 ) +R+S 

560 fl*="" : RETURN 

RERUV. 



SKETCHING 2 



DESCRIPTION 

This program allows the user to draw High Resolution 
characters in a 64 x 64 pixel block, in the centre of the 
screen with the use of the joystick. 

EQUIPMENT REQUIRED 

Basic VIC-20 + joystick. 

RUNNING THE PROGRAM 

Following the same principles as Sketching 1 but does not 

pick up characters. 

N Sets the block to original. 

C When the cursor is moved in this mode any points it moves 
over will be cleared. C then returns to original. 
Q To quit. 

PROGRAM STRUCTURE 

The following lines are of the most interest in this program. 
40-90 Sets up control registers, limits memory, moves 

character generator and sets all values to 0. 
100-250 Display. 
260-280 Changes character. 
290-350 Check for keyboard input. 
360-520 Check for joystick input. 
530 End. 
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19 REM SKETCHING 2 

2© rem MMMM*mM#mmmmmmMmww**mm 

30 REM 

4© P0KE36S73,3:PRINT":WUST fl MOMENT" 

44 REM 

45 REM LIMIT TOP OF MEM OR V 

46 REM 

5© X-PEEK<56> -2 = P0KE52, X = P0KE56, X 
6© POKES 1 / PEEK < 55) : CUR 

63 REM 

64 REM MOVE CHARACTER GENERATOR AND 

65 REM SET ALL VALUES TO ZERO 

66 REM 

7© CS=256*PEEKQ52)+PEEK<51) 

8© FORX=CSTDCS+51 1 : POKEX, = NEXTX 

90 W=SF=0:Q=0:CR=0 

94 REM 

95 REM PRINT UP BISPLRV 

96 REM 

190 PRINT" SKETCHING!" 
11© PRINT" £C=CORRECTIONH" 
120 PRINT" SB=QU ITS' 
13© PRINT" SN=NEW DISPLflVS" 

140 PRINT "MM" 

1 5u FOR J=3S480TO38884 : POKE J > 1 = NEXT J 
1 6© PR I NTTAE < 7 > ; " ©ABCBEFG M 
170 PRINTTAE<7>; ,1 HIJKLMN0" 

IS© PRINTTABC7) "PQRSTUVW" 

19© PRINTTAB<7>.; "XVZCS3 t*-" 

2O0 PRINTTAEC7);" ! "+CHR*<34> + ,, #*KA' " 

21© PRIHTTAB<7) J u O*+,-./" 

220 PRINTTAB<7) > "01234567" 

23© PRIHTTRB<7); 11 39 :;<=>?" 

24© C=0:V=©:X=7 

25© P0KE36S69/255 

254 REM 

255 REM CHANGE VALUE IN CHARACTER 
2^6 REM 

26© N=PEEK<CS+C*8+V) 

270 R=C- 1 NT < C/22 > #22+ 1 NT < C/22 ) *3 

£30 L=N0R<2TfO = POKECS+C*S+V,. L = F0RJ=1T01 = NEXTJ 

234 REM 

235 REM CHECK KEVBOARB FOR INPUT 

236 REM 

29© GETA$- IFA*="Q"THEN530 

30© I FA* = " C " ANPQ=©THENCR=CR#- 1 + 1 - Q* 1 

31© IFW=lTHENN=NQRC2fX> 

32© I FCRTHENN=NRND < 255-2 1X> 

336 P0KECS+C*8+V,N 

348 IFA*O"C"THENQ=0 

35Q IFA*="N"THENS0 
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354 REM 

355 REM CHECK JOVSTICK FOR INPUT 

356 REM 

360 P0KE37154, 127 = J0=-< <PEEK(3?152>flND128>=0> 

378 POKE37 1 54 > 255 : P= PEEK < 37 1 5 1 > -J 1 = - < C PRND3 > =Q > 

330 J2=-CCPRNni6>=0) : J3=-<CPRMD4>»0) 

390 FB-~<XPRHB32>=0> 

490 IFFBRHDF-0THEHU=W*-1+1 :F=1 

410 IFFB=0THENF=G 

420 I F J 1 RNDO55RNDV=7THEN440 

430 IFJ1THENY=V+1 IFV>7THENV-8 : C=C+8 

448 1FJ2=0THEN470 

450 IFC=0RNDX=7THEN470 

463 X=X+1 •■ IFX>7THENX*0:C=C-1 

470 IFJ3RNDC<8RNDV=0THEN490 

480 I FJ3THENY=Y-1 = IFV<0THENV=7 : C=C-3 

490 IFJ0=0THEN520 

500 IFC=63RNDX=0THEN520 

516 >i~K-l ■ IFX<@THENX-?: OC+1 

520 GOTO260 

530 P0KE3S369, 240 : P0KE56, 30 : END 
READY. 



KALEIDOSCOPE 



DESCRIPTION 

This program displays a constantly changing colourful pattern 
on the screen, reminiscent of the childrens' toy Kaleidoscope. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

This program requires no expansion. 

After loading the program type run and watch the pattern 
grow. To stop the program hit any key to end. 

PROGRAM STRUCTURE 

There are a few lines of interest in this program. These lines 
are as follows. 

40-50 Choose correct screen and colour map starts. 
80-260 Displays Kaleidoscope pattern. 



11(1 
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13 REM KALEIDOSCOPE 

20 REM *#**##########*#**#*#**#*#*********#**** 

30 REM ■ 

40 VR=FEEK<648>*256 

5fl KR=3ft490; IFVRO7680THENKR=37S83 

6m P0KE3S879.' 42 : PRIHT'TITlfc* VIC KALEIDOSCOPE **" 

73 FORI = 1TO£000: NEXT; PRINTS" : PGKE36S79, 27 

30 PORI=VRTOVR+50S 

90 POKE I, 160: NEXT 

100 2=KR : G=KR+21 

110 E=KR+434-R=KR+505 

120 F0RJ-9T010 

130 FORI=0TO12 

140 X=INTCRNDCn*8) 

150 P0KEZ+J*23+I,X 

160 POKEQ+J*21-I,X 

170 P0KE2+J#23+I*22iX 

ISO P0KEG+J*21+I*22,X 

130 P0KEE-J*21+I,X 

2O0 P0KER-J*23-I,X 

210 P0KEE-J*21-I*22,X 

220 P0KER-J*23-I*22,X 

230 BETA* : I FA*0 " " THEH270 

240 NEXT 

250 FORK=1TO280:NEXT 

260 NEXT : GOTO 120 

270 PRINT'TH"; :P0KE36S79*27 

RE ADV. 
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HI-RES DEMO 



DESCRIPTION 

Displays an attractive high resolution display on the screen. 
No values are input. 

EQUIPMENT REQUIRED 

Basic VIC-20 plus super expander cartridge. 

RUNNING THE PROGRAM 

When loaded type RUN and watch the pattern appear on the 
screen. To stop hit any key. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows: 



40-50 


Main program loop. 


60 


Clears screen and sets graphic mode in colour. 


70-100 


Draws lines on the screen. 


110 


Draws large circle and colours in around the 




circle. 


120 


Draws small circle and colours inside the circle. 


130-140 


Pause and check for key press. 


150-170 


If key press, the end. 
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10 REM HI-RES DEMO 

20 REM ******#*******##***#**#*##*********#**** 

30 REM 

40 G0SUE69 

59 GOTO 48 

S0 F0RK*1T014 : SCNCLR = GRRPHIC3 : COLQRK+1 , K+l , K, 
70 FORI-1TQ1000STEFK*23:DRRWI, 1000, I TGI, 1 
89 DRBW1 , I , 1000TO1 , I : NEXT 

93 FORI «1TQ1000STEPK*25: DRAW!, 1000-1, 1T01, I 
100 DRAW*, 1600, 1000- 1 TO 1, 1000 : NEXT 
110 CIRCLE1, 500, 300, 233, 340 :PPJNT1, 175,500 
120 CI RCLE 1 , 5@0 , 500 , 70 , 1 00 = PR I NT 1 , 500 , 500 
130 FORI=1TO500 

140 GET A*: IF A*="" THEN NEXT : NEXT ■■ RETURN 
150 COLOR 1,3,6,0 
160 GRAPHIC 
170 END 
READY . 
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BANDIT 



DESCRIPTION 



This game is a graphical representation of a one armed 
bandit. The machine has five different symbols all in different 
colours. One of the symbols will pay out if it is just the first, 
the first and second, or the first, second, and third. All other 
symbols pay out only if all three reels show the same. The 
game allows the user to bet up to 12 units, and the win is 
multiplied by how many units bet. e.g. if 12 units are bet and 
three bar symbols appear, the computer will pay out 1200 
units. 



EQUIPMENT REQUIRED 



Basic VIC-20 with no expansion. 
RUNNING THE PROGRAM 



After typing run, the display will show a one armed bandit. 
Use the key Z' to input the money, 'S' to start the reels 
spinning, and the keys '1, 2, 3' to stop the respective reels. 
The keys to stop the reels do not act immediately but allow 
the reels to spin for a couple more symbols so that the user 
cannot cheat. The game is over when all the money has run 
out. 



PROGRAM STRUCTURE 



The lines of interest in this program are as follows. 

50-260 Display Bandit. 

270-360 Input cash or start. 

370-560 The array A$ holds the actual symbols. 

620-900 Spin reels. 

920-950 Input keys to stop reels. 

960-1040 When all reels have stopped, check for a win. 

1050-1140 Win, display payout. 

1150-1210 Choose the next symbol to appear. 

1220-1270 Run out of money. 
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■IS REM EflNIHT 1 

20 REM *************************************** 

30 REM 

34 REM 

35 REM DISPLftV FRUIT MACHINE 
3b REM 

4w q==, : >;C= 50 : GQ3UB 1 1 50 

50 PRiHf"^M"SPC<7> ,, Ha . 

60 PRIHTSPC<7?"ai« dt»H 

70 R*= J 3 ■ 

so i$=" a *mmM2$ br««s3 sx;«;sa « s s 

30 C*=" 3 1 

100 PRINTfl* :RRINTfl*" PRINTED 
110 PRINTA*" 3 S" : PRINTRf " Zi ■" 

120 pr I ht "mi wnsrvmt 3* ^ M is-ff " 

130 PRINT" m V M !T ? M 13 3" 

140 PRINTE$ : PRINTR*" E) " 

153 PRINTC*"S 

160 PRINT" 3 ■ IHQOOOOOOOGOOOH 3 5 

170 PR IN Tut 

130 PRINT" 3 S ElSttBflR FRUIT*5S 3 S 

190 PR I NT 

200 PRINT" 3 « iiSQSS 1, SPC<ie>"li305S a 1 

210 PRINT" a » fiiftSS P 50 iiEtdSS 3 5 

220 PRINT" 3 » BiSQOOOOOOOQQOOKS 3 ■ 

230 PRIHTCS : PRINT" S Z= INSERT : S=STRRT " 

240 PRINT" 3 1,2,3=ST0P 

250 C*= "35ftffi«sM?M?I«!ftIfl&!l?M" 

260 CO=0 : PR I NTLEFT* C C* ,12; " WUKfaOOOOOOOOOOO 

264 REM 

265 REM INPUT CASH OR START 

266 REM 

270 GET A* : I Fh$<iy"Z" RNIiRtO " 3" THEH270 

230 IFR*="Z"THEH310 

290 IFCOO0flNDfl*O"2"THEN370 

300 GOTO270 

310 IFCO=12THEN270 

320 IFSC=0THEN279 

333 Cu=Cu+l :RRTNTLEFTtO:$, 12:>SPC':4> "S".: 

340 PRINTLEFT* < "^Stta******* 11 , CCO 

350 SC=3C-1 :PRINTC*SPCC7) ,, P"STR*<SC>" " 

36y GOTO270 

364 REM 

365 REM PREPARE STRINGS FOR EACH SVNEOL 

366 REM 

37m R*a, n="fl 

330 fl*Cl,2> = "fflv/ v " 
330 fl*<l,3>="a ^ 

400 fl*a,4>="fl 

410 R*<2, 1>=" 

420 fl$C£,2? = "m .-, " 



118 



430 fi$t2,3>="!nar ^m u 

440 Ff$C2,4> = ,, fn 1 -' v» 
450 fi*(3, l> = "Si SHTS " 
460 ft$<3 J 2>="fiS^t^" 
470 flf k3^3>-"lil v I" 

480 R$(3,4)="ir 

430 fl$<4, 1 > = "3 ETVS » 
500 H$(4,2)="S= :*•■=" 
516 R*<4,3>="5 a^-" 
520 R*<4,4>=" 

530 fl$(5,i)="iia" 

540 H*(5 J 2> = "a2lEfiRK■? ,, 
550 R$-:5,3>^"^i5lBflR«" 

560 fit<5,4>="i«88SB" 

564 REM 

565 REM PULL RND RELEASE ARM 

566 REM 

570 PRINT"3SSftWH ,, SPC<:20>.: 

530 F0RI=1TQ6 : PRINT " CllEMI"; 

530 FOR J= 1 TO40 • NEXT = NEXT 

60S FOR I = 1 TQ6 : PR I NT " 2J niftSC; 

61 FORJ= 1 TO30 : NEXT : NEXT 

614 REM 

615 REM SPIN REELS 

616 REM 

62© RH=0 = BH=0 = CH=0 

630 IFRH=3THEN720 

640 RP=flP+l = IFRP=5THENR=RR ; RF=i 

650 RX=H : R't -RP : RZ=RR 

660 PR I NT" JffiHMUM" SPC < 3 ) R$ < fl > RP > 

670 FOR I = 1 T03 = RP=RP+ 1 - 1 FRP=5THENR=RR = RP= 1 

63Q PR I NTSPC < 3> R* < R , RP ■' • NEXT 

690 I FfiP=4RHBRHO0THENflH-flH+ 1 

700 I FfiP=4RNBR=RRTHENRZ= INT <RND < 1 > *Q ) + 1 

710 R=flX:RP=RY:flR=flZ 

720 IFEH-3THEN310 

73Q EP=BP+i : 1 FEP=5THENE=BR = BP=1 

740 BX=B:BV=BP:BZ=ER 

750 PR I NT" HtiMSMH" SP C ( 3 ) R* < £ , BP; 

760 F0RI=1T03:EP=EP+1 : IFBP=5THENB=BR ■ EF-1 

770 PRINTSPC<;3>fl*<E,EP; : NEXT 

730 IFEP=4flNEBHO0THENBH=EH+l 

790 I FBP=4RNDE=BRTHEHBZ= I NT <RND.< 1 >*G>+1 

300 E=BX:BP~BV:BR=BZ 

310 IFCH=3THEN900 

320 CP=CP+ 1 : IFCF -5THENC=CR : CP= 1 

330 CX=C--CV=CP:C2«CR 

340 PRINT"HM*!MWWrSPC( 13>fl*CC, CP> 

: : :S0 FOR I = 1 T03 - CP=CP+1 ; I FCP=5THENC=CR : CP-1 

860 PRI NTSPC <l3)m<C CP > 'NEXT 

370 I FCP=4RNECHO0THENCH=CH+ 1 



380 I FCP=4RNDC=CRTHENCZ= I NT ( RND < 1 >*Q> + 1 
S50 C=CX : CP=CV : CR=CZ 

909 IFRH=3AHBEH=3RNDCH=3THEN960 

904 REM 

905 REM INPUT KEYS TO STOP REELS 

90S REM 

910 GETR* 

929 XFAH03ANDA**" 1 "THENAH=1 

930 I FEH03 AN Dfi$ = " 2 " TH ENBH= 1 
940 IFCH03flNDA*="3"THENCH«l 
956 GQTG630 

954 REM 

955 REM WHEN ALL REELS STOPPED, CHECK FOR WIN 

956 REM 

960 HT=0 : XX=Q = IFA=1 THENXX=2 

970 IFR=1ANDE=1TH£NXX=5 

950 IFR=1RNDE=1ANDC=1THENXX=10 

990 I FR=2RNDE-2RNDC-2THEHXX=20 

1 0O0 I FA=3RNDB=3RNDC=3THENXX=50 

1010 I FA=4ANBE=4 ANBC=4THENXX=20 

1 020 I Ffi=5RNDB=5RNDC=5THENXX= 1 00 

1036 XX=XX*CO 

1040 IFXX=0TH£N122O 

1044 REM 

1045 REM WIN, DISPLAY PAYOUT 

1046 REM 

1050 PRINT";!" :F0RI = 1T0XX 
1060 FOR J=1TO10= NEXT 

1070 IFHT=0THEHPRINT"SafleJ"SPCC8>"a ■ " 

1080 IFHT=10RHT=5THEHPRINT"S?I(fl"SPC(S>" 3 S" 

1090 IFHT=20RHT=4THENPRINT ,, S«*rSFC<8V l $ » " 

1100 IFHT=3THENPRINT"SftIa3 ,, SPC';S>" 21 S" 

1110 HT=HT+1 : IFHT=6THENHT=0 

1 1 20 SC=SC+ 1 = PR I NTCiSPC C 7 ) " P " STR# < SC > 

1130 NEXT : PR I NT "S" 

1140 PRINT"SftM"SFC<6>" " : G0T0260 

1144 REM 

1145 REM CHOSE NEXT SVNEOL TO APPEAR 

1146 REM 

1 1 50 HP=0 : EP=0 : CP=0 

1160 A=INT<RND<l>*Q>+i 

1170 AR=INTCRND<1)*Q>+1 

1180 B=INTCRND<1>#Q)+1 

1150 BR = I NT < RND < 1 ) *Q > + 1 

12O0 O I NT < RNE a > m 3 + 1 

1210 CR= INT < RND C 1 ) *Q) + 1 : RETURN 

1214 REM 

1215 REM OUT OF MONEY 

1216 REM 

1220 IFSCOOTHEN260 
1 23u FOR J= 1 TO 1 0OO : NEXT 



1240 PRINT"nfiflfcMfliM(!W SiHOTHER GO CV OR N) ?" 
1250 GETfl*: IFfi*O 1, V"fiNDfi*O"N"THEN1250 
12S0 I Ffl* = " V " THENRUN 
12?0 PRINT'S THE END" END 
READY. 



MOON LANDER 



DESCRIPTION 

The aim of the game is to land a space module on the surface 
of the moon without crashing. It requires a great deal of skill 
to place the space ship on the surface, caution is advisable 
when judging the speed of your approach. 
The display on the screen for this game is very simple, 
consisting of a lunar module in the right hand corner of the 
screen with an information gauge on the left, indicating the 
height, speed, time and fuel use. 

Another feature of the game is the sound when fuel is being 
used. 

One final note, it is possible to land the space ship without 
crashing. 

For those interested the game could be modified to use a 
joystick instead of the keyboard, better graphics could also 
be added. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

After typing run the program displays a set of instructions for 
playing the game. Pressing the space bar will start the game. 
The display shows an information gauge on the left hand side 
of the screen and a lunar module on the right hand side. 
There is an initial countdown of several seconds after which 
the game starts. The speed of the lander's descent can be 
controlled by burning fuel in the retro-rocket; the amount of 
fuel used is controlled by the number keys 1 to 9. Key 1 uses 
very little fuel and therefore slows the descent only slightly; 
note that the speed shown on the gauge will increase for all 
fuel usages below 5 since we are having to counteract the 
effect of gravity. A value of 5 will just counteract gravitational 
pull and the spacecraft speed will remain constant. Keep an 
eye on the fuel gauge since running out of fuel will result in 
an uncontrolled crash to the surface. A successful landing on 



the surface will be achieved if your speed is less than 15 

Km/hr. 

PROGRAM STRUCTURE. 

The lines of Interest in this game are as follows, 

50 Colours the screen red and uses a subroutine to 

print the instructions for the game. 
70 Returns the screen to white for play to 

commence. 

130-170 Sets up land parameters for intial fuel, speed 

and height information. 
200-220 Inputs fuel usage from the keyboard. 
240-350 Calculates new values ofspeed and height. 
370-430 Displays the above values. 
450-560 Prints the space ship on the screen. 
580-630 Prints box around landing parameters. 
660-710 Displays burn out combustion lines. 
730-770 Prints random dots to represent stars. 
790-850 Displays moon surface when height becomes 0. 
880-920 Displays landed ship. 
940-960 Displays crashed ship. 
970-990 Inputs new go. 

1010-1060 Inputs the 5 second count down at the 

beginning of the game. 
1090-1230 Prints instructions for the game. 
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IS REM MOONLflNDER 
20 REN 
30 REM 
39 REM 

4@ REM RED SCREEN BHD INSTRUCTIONS 
41 REM 

50 P0KE36879, 42 : G0SUE189S 

59 REM 

60 REM WHITE SCREEN FOR GAME 

61 REM 

70 P0KE36S79, £5 P0KE36869, 240 
80 PRINT "3"; 
90 14=15 
100 G0SUB73S 
110 PRINT" M" 

119 REM 

120 REM SET UP PflRFI METERS 

121 REM 

130 TH=0:T=G 

148 X0=52300 

150 V0=-176:F=l:S=l 

160 GOSUB450 

170 GGSUB 1010 

180 AT=TI :fiG=TI 

189 REM 

190 REM INPUT FUEL USAGE 

191 REM 

20G GETRR* : I FRRfO " " THEHR=VRL ( RR$ ) 
210 IF<TI-AT»30THENAT=TI : GOTO240 
220 GOTO210 

229 REM 

230 REM CALCULATE NEW VALUES 

231 REM 
£40 T=T+R 
250 TH=TH+1 

260 fl*5.4*<l-0.2*R> 
270 X=VS+0 . 5* A = X0=X0+X 

289 IFX0>0THEN300 

290 X=X-X0:F=0:X0=0 

300 D=VO*V0-2*X*fi 

310 IFD>0THEN330 

320 D=-D:S=-1 

330 VW=SQR < B ) *S*SGN < X ) 
340 5 = i 

350 I F VG>uTHENPR I NT " 5i"; 

359 REM 

360 REM BISPLAV LANDING PARAMETERS 

361 REM 

370 PR INT" HMUftM" ; M I D* < STR* ( V0 ) , 2 , 5 > " ■" i 
330 PR I NTLEFT* < STR* < X0 > +A* > , 7 ) 
390 PRINT "MS" 
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406 PRINT N M".:250Q-T"II lll"TAB<8> ; TH 

4 1 GOSUB660 ■ I FF=0THENGDSUB790 : GOTO880 
420 I FT>2500THENR=0 : G0TG25S 
430 GOTO20B 

439 REM 

440 REM INITIALISE STRINGS FOR SHIP 

441 REM 

450 fl$="J9MMI" 

460 Mf <0>=" 

470 R*a)*"ii r " 
430 fl*<2)»"i sr " 

490 P,*<3) = "i a ■ ■ " 
500 fl$<4>="BirUSfW 
510 ft*<5>="i/Sr»'^' 1 

520 fl*C6>=A*<0> 

530 PR I NT "SWIM" TAB < 15); 

540 FORI=0TO6 

■550 PRINTA*<I)+A*; 

560 NEXT 

'"^9 REM 

•>70 REM PRINT DISPLAY AROUND PflRftMETERS 
571 REM 

53U PRINT"SH " 

590 PRINT" I31SPEED HEIGHTS ":GOSUBe20 
«>60 PRINT" IEFUEL TIME fl ":GOSUB620 
hl0 RETURN 

i>20 FOR I = 1 T02 : PR I NT " l"TflB<13VM " : NEXT 

«>3Q PRINT" 1 I " : RETURN 

*m REM IF KEV GREATER THAN PRESSED, 
u90 REM DISPLAY 'BURN' 

■>60 PRINTTABaS); = I FR=0THENPOKE36378,0: RETURN 

i :?0 P0KE36877, 150 = P0KE36874, 200 = P0KE36878, R 

'"30 FORI=lTOR:PRINT"ia^MaMr; : NEXT 

. :.90 FORI-R TO10: PRINT" aiBI" i ■ NEXT 

.'00 PRINT''rTTTTTTTTrn u ) : FORI=1TO10 

.'10 PRINT 11 WMI"; : NEXT: RETURN 

."19 REM 

.'20 REM PRINT 14 RANDOM ON SCREEN 

.•21 REM 

.'30 PRINT 11 :*" 

.'40 F0RI1=1T014 

.'50 PR I NTTAB < 20*RND < 1 > > ; " . " 

f \l& NEXT II 

.V'0 RETURN 

,'79 REM 

.'00 REN DISPLAY SURFACE 
itil REM 

\m H=4.5;Hfa)="_" :H^^2>="_'■:H*^3)="-' , 
: ri.,0 Ht < 4 > = " : H* < 5 > = " fiTB" ■* H* <6>= " STB" 

H*<7>-":T»' =H*<8>="S tf" 
: 1 1< INT " kjsllWa^WltflflSWBi&flWfcPjWW ' 1 1 FGRI^l T021 



839 N-INT<RND<1>#7>+1 ■ I FAES C N-H > >2THEN830 

840 F0KE36S77 , = F0KE36874 , Z ■ P0KE3637S , 
85G H=N = PRINTH$CH) j = NEXT I : RETURN 

853 REM 

860 REM SHIP HAS LANDED OR CRRSHED 
370 REM DISPLAY SHIP AS NORMAL 
871 REM 

380 print " mm" spc a 5 > ; 

890 FOR I = 1 TOl = FOR J-0TO5 : PR I NT A* < J > + A* ■ 
900 NEXT:PRINT"TTTTI " J : NEXT 
910 IFV0-C-15THEN94U 

920 PRINT: PRINT "MSKftftasGOOD LANDING." =GOTO970 

929 REM 

930 REM DISPLAY CRASHED SHIP 

931 REM 

94o print"! pBaufli mm\ mmmi 

950 print"hwiet^Ii MiaiBBHBaas'ia «r»&»i L a «r" 

960 PR I NT "MM" 

970 INPUT "ANOTHER GO " \ G* 
980 I FLEFT* < G* ,1) = " Y " THEH90 
990 END 
999 REM 

1080 REM COUNTDOWN TO START 
1001 REM 

102O A=TI 

1 030 PRINT " 33 TART OVER 11 5- 1 NT < < T I -A ) /60 ) ; 

1040 PR I NT "II SECT 

1 OSO I F a I -A > <30OTHEN 1 030 

1060 PRINT" " -R=0 

1070 RETURN 

1079 REM 

1030 REM INSTRUCTIONS 

1031 REM 

1090 P0KE36S69 J 242:REM IN LONER CASE 

1100 PR I NT "mi**-*** MOONLAHDER ***** 

1110 PRINT" YOU MUST LAND YOUR" 

1120 PRINT" SPACE SHIP ON THE MOON. " 

1130 PRINT"Wt'OU HAVE CONTROL OVER THE ".: 

1140 PRINT"SHIP BY CHANGING THE FUEL USAGE. " 

1150 PRINT"Wt'uU CHANGE THE FUEL USAGE "J 

1160 PRINT"WITH THE KEYS 3.. 3 - 5 KEEPS" 

1 1 70 PR I NT 11 CONSTANT SPEED . " 

1180 PRINT "Wi'OU MUST LAND WITH A SPEED " j 

1190 PR I NT "OF LESS THAN 15 -"M/H. " 

1 200 PR I NT " JSCOOD LUCK . " 

1210 PRINT"M3START WITH A SPACE. 

1220 GETA* = IFA*=""THEN1220 

1230 RETURN 

READY. 
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CIRCLE DEMO 

DESCRIPTION 

This program plots two high resolution circles on the screen 
of equal radii but with different centre co-ordinates. No 
values are input. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

This program will not work with expansion. After loading the 
program all the user has to do is type run and watch the 
circles appear on the screen. To stop the program hit any 
Key. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows. 

40-50 Sets up the control registers. 

60-90 Limits memory and moves character values 

down from ROM. 
100-190 Changes the character in X%,Y% point on the 

screen. 

200-230 Calculates the points on the circle. 
240-260 If key press, end. 
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10 REM CIRCLEDEMO 

28 REM I*****:*********************.************** 
38 REM 

40 P0KE36879,42:PRINT"nf»** VIC CIRCLEDEMO *** 

50 P0KE36869, 253:P0KE36867, PEEK C 36867) OR 128 

54 REM 

55 REM LIMIT TOP OF MEMORY 

56 REM 

68 P0KE55, 8 :P0KE56,25 = POKES 1 , = PGKE52, 19 
78 CLR : 8=32768 =T=5 120 

SO FORI=0TO255*8+7 : POKEI+T, PEEK< I+S> = NEXT 
56 GOTO170 

94 REM 

95 REM CHRNGE CHRRRCTER POKED RT THAT POINT 

96 REM 

1 80 X'/.=X/8 : VK-V/S : P=X!i+V>i*22+7688 
HQ Q=PEEK<P) : IFGK12STHEN148 
120 C=5120+G*3+<VhlND7> 

I 30 P0KEC,PEEK<C;0R<2t<7-<XAND7>>> = RETURN 

134 REM 

135 REM MOVE CHARACTER GENERRTOR 

136 REM 

140 CN=CN+1 :S*5I20+a27+CN>#8:T=5120+Q*8 
150 FOR I =0TO7 : POKES+ 1 , PEEK < T+ 1 ) : NEXT 
1 68 i3=127+CN :P0KEP, Q : GOTO 128 
1 78 F0RI = 1T022 ■ P0KE7688+22*I , 93 : NEXT 
ISO P0KE7688+1 1*22, 107 

190 FORI=1TO£1 =POKE7630+1 1*22+1,64: NEXT 

194 REM 

195 REM CRLCULRTE POINTS FOR CIRCLE 

196 REM 

.:88 RD=40:FGRZ=0TO2*ff STEP. 85 : X=C03<Z)*RD+88 
.'10 Y=S I N < Z > *RH* I . 7+SS : GOSUE 1 80 
. "20 X=COS < Z > *RD+98 : V=S I N C 2 ) *RD* 1 . 7+38 : GOSUE 1 00 
.'30 NEXT 

.-48 GETfi* ■ IFR$=""THEN248 

.""•Q P0KE36879, 27 : PRINT"."E" ; ■ PGKE36869, 240 

,'i.y POKE 56,38 

P1ADV. 



HI-RES PLOT 



DESCRIPTION 

This program allows the user to plot high resolution points on 
the screen using P, U, F and E keys. 
P: Plots points. 

U: Inverts the point at those co-ordinates. 
F: Plots up function defined in line 500. 
E: End of program. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

This program requires no expansion. When typing in the 
program leave out the REMs, type RUN, use the commands 
above and follow the instruction which will then be given. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows: 

100-110 Sets up control registers. 

150-290 Limits memory, moves character values down 

from ROM, inputs option, and decides where to 

go. 

330-340 Plot the point P option. 
380-390 Plot the point U option. 
460-510 Plot the function defined in line 500. 
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19 REM HI -RES PLOT 

20 REM *************************************** 

30 REM 
40 REM 

5fl REM THIS PROGRAM WILL ONLY WORK 
gO REM WITH ALL THE REM STATEMENTS 
70 REM REMOVED 
SO REM 

90 PRINT"3i»#* VIC HIRES-PLOT ***" 

1 O0 P0KE36879 > 42 ■ P0KE36369 , 253 
1 1 e FGKE36367, PEEK C 36367) OR 123 
120 REM 

ISO REM LIMIT TOP OF MEMORY 
140 REM 

1 50 P0KE55, W : P0KE56, 25 = P0KE51 , 6 

lfifl POKE 52 j 19 :CLR: 3=32768 : T=5120 

170 FORI=0TG255*8+7 : POKEI+T, FEEK< I+S> 

180 NEXT = PR INT "3 

190 INPUT "COMMAND "J A* 

200 IFft*O"E"THEN230 

210 P0KE36879, 27 = PR I NT "3" > 

220 POKE 36869, 240=POKE56, 30= END 

230 IFflSO"P"flNDA*O"U"THEN250 

240 I NPUT " »< , Y " : X > V : GOSUE270 

250 IFR$="F"THEN460 

260 GOTO 190 

270 >:y.=y./s ■ yx=y/s = p=xr->Yx*22+76se 

230 a=PEEK<P) : IFIK128THEN400 
290 IFfl*O"U"THEN380 
300 REM 

310 REM PLOT THE POINT <0,0=TOP LEFT) 
320 REM 

330 C=5 1 20+Q*3+ < YRND7 ) 

340 POKEC, PEEK < C) AND < 255-2 1< 7- (. XAND7 > ) 5 : RETURN 
350 REM 

360 REM PLOT THE POINT INVERSE TO WHAT IT IS 
370 REM 

330 C=5 1 20+ Q*3+ C YAHD7 > 

390 POKEC, PEEK(O0R';2t'r7-CXHND7>) > = RETURN 
400 CN=CN+1 :S=5120+C127+CH)#8:T-5120+Q*8 
4 1 S FOR I =0TO7 = POKES+ 1 , PEEK < 1+1 > ■ NEXT 
420 0=1 27+CN = POKER, Q : GOTO380 
430 REM 

440 REM PLOT FUNCTION IN LINE 500 
450 REM 

4^0 PRINT " 3" : FOR I =OT022 : POKE7680+22* 1 , 93 

470 NEXT : POKE7630+ 1 1 #22 , 107 : DATA15, 23, 19 

4*0 FQRI=1TQ21 :POKE7680+1 1*22+1 , 64 : NEXT 

430 F0R2= 1T03 : READS : F0RX=4T01 75 

50ifi V= . 5*X+5G+S I N < C X-4 > /' 1 76*E > * 1 5 

5 1 GOSUB270 = NEXT = NEXT : RESTORE : GOTO 1 90 

READY. 
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HANGMAN 



DESCRIPTION 

Hangman is the computerised version of the popular childs 
game, although playing against the computer enlivens the 
proceeding well enough for adults to find it challenging. The 
player guessing the word has ten moves in which to work his 
miracle (the computer always plays as the questioner!), no 
second chances are allowed as first the ground appears, 
followed by the upright, then the crossbar, the strut, the 
noose, the hanged man's head, his body, arms, legs, and 
finally his feet. If the correct answer has not been found by 
this time then the player who is trying to find the word loses. 
In this particular program the computer has a vocabulary 
comprising some of the 200 most commonly misspelled 
words in the English language. 

It is possible to cheat by looking at the vocabulary listing but 
most people would, 1 hope, try to use the game in a more 
sporting way. By changing the words in the Data statements 
in lines 9500 to 9998 - always ensuring that there are 200 
words contained therein - it is possible to use this game as an 
aid to learning a foreign language. 

EQUIPMENT REQUIRED 

Basic VIC-20 with 3K expansion. 
RUNNING THE PROGRAM 

This program will only work with 3K expansion if the REM 
statements are removed. Any expansion above 3K will work 
with the REM statements included. 

Once the program is loaded, type run and follow the 
instructions. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 
40-380 Instructions. 

420-560 Choose a word from the data statements. 
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570-590 Input a letter. 

600-660 Not a letter. 

670-760 Guessed the word. 

770-800 Letter in word. 

810-890 Print letter in the correct position on the screen. 

900-950 Letter fs not in the word. 

960-1000 Display the man's feet. 

1010-1030 Failed to guess the word before the man was 
hung, 

1040-1070 Display the base of the rig. 

1080-1140 Display the upright. 

1150-1180 Display the horizontal. 

1190-1220 Display the diagonal support. 

1230-1260 Display the rope. 

1270-1340 Display the man's head. 

1350-1420 Display the man's body. 

1430-1460 Display the man's hands. 

1470-1530 Display the man's legs. 

1720-2360 Data containing about 200 words. 



10 REM HANGMAN 

i EM ^ j^jfr $ ^ W-W- $ Jfi $ J^c $ itiJfi ^ ^ ^ $ ^ ^ $ 5fi )^ 

30 REM 

40 PR I NT 11 ^M?M?»iromM MHfiHGMAN 11 

50 PRINT "WAS" 

.69 PRINT "KM DO YOU NEED" 
70 PRINT" INSTRUCTIONS 7 U 
8© PRINT " £ REPLY V FOR 'YES''" 
90 PRINT" OR N FOR 'NO')" 
100 GET X*-IF X*=""THEN 100 
HO IF X*="N" THEN 400 

120 FRINT"3RLWRYS REPLY Y FOR YES OR N FOR HO. " 
130 PRINT"MI WILL PRINTS" 

140 PRINT"'?! WORB=Si 3" 

150 PRINT":?EflCH Sr-3 STANDS FOR A" 
160 PRINT" MISSING LETTER." 
170 PRINT 

ISO PRINT">aJHEN I PRINT" 

190 PRINT" 'SFRESS RNY LETTERS'," 

260 PRINT"FOLLOW THE INSTRUCTION" 

210 PRINT"FRESS SSPACE" TO CONT" 

220 GET A*: IF A$0" "THEN 220 

230 PRINT 'T3IF A LETTER IS IN THE" 

240 PRINT" UNKNOWN WORD " 

250 PRINT " MORE THAN ONCE YOU" 

260 PRINT" WILL NEED TO PRESS " 

270 PRINT" THE LETTER MORE THAN ONCE. " 

280 PRINT"*E.G. 'APPLE -'HAS 2 P''S," 

290 PRINT" PRESS P ONCE AND" 

300 PRINT" I REPLY:" 

310 PR I NT "M WORD=IHP 2«" 

■;20 PRIHT"PRES3 P A SECOND TIME AND I REPLY:" 
:30 PR I NT -M WORD=5r-PP— 5" 
340 PRINT 

330 PRINT"YOU HAVE TO COMPLETE" 
■i:60 PRINT" THE WORD BEFORE I" 
J70 PRINT" HANG THE MAN. " 
380 PRINT" 3PRESS ANY KEY TO STARTS"; 
:90 GETX^IF X*=""THEN 390 
PRINT"^".:TAB(7>; "HRHGMflN ,, 

410 PRINTTAB(7>; " 3"; 

•114 REM 

■115 REM CHOOSE A WORD FROM THE DATA 

•116 REM 

■ 1 20 Rfl= I NT < RND < 1 > * 1 97+ 1 :> 
•ISO IF A*="END" THEN 720 




•150 READ ft*: IF fit— "END " THEN 72@ 



■160 NEXT I 
■170 RESTORE 
■180 LA=LEIKfi*> 



490 Z*=CHRf<18>+fl* 

56@ DS*" U 

510 FOR 1=1 TO LR 

520 D*=D$+"-" 

530 NEXT I 

540 PRINT "M" 

550 PRINT "WORB=ii" ; B*; "CSS" ; 
560 H=0:L=0 

564 REM 

565 REM INPUT A LETTER 

566 REM 

579 PRINT-MMM SPRESS RNV LETTERS &i 

530 GET L*-TF L$=""THEN 580 

530 IF flSC<L*»64 RND flSC<L*><91 THEN 640 
534 pjr^ 

595 REM NOT fi LETTER 

596 REM 

660 PRINT"MMM"L*" IS NOT fl LETTER 
610 GOSUB 1690 

620 PR I NT -n a"; 

630 GOTO 570 

646 GOSUB 730 

650 IF N<Lfl THEN 570 

660 IF N=<Lfl+l> THEN Tl=TI:GOTO 6S0 

664 REM 

665 REM FINISHED 

666 REM 

670 PRINT ,, MWtfi'OU MINI ! ":T1=TI 

630 IFCTI-T1X200 THEN 630 

690 PRINT"!! DO YOU IdfiNT RNGTHER GO?".: 

700 GET B*:'1F B$=" "THEN 766 

710 IF B**^V" THEN 400 

720 PR I NT "3 THfiNK-YOU FOR PLAYING" ; END 

730 LF=0 

740 FOR 1=1 TO LR 
750 B*=MIB*<fl*,M> 
760 IF B$OL$ THEN 876 

764 REM 

765 REM LETTER IN WORD 

766 REM 

770 PRINT "MWLETTER IN WORD A"; 

730 N=N+1 

790 GOSUB 1690 

80S ifl*4+l 

S04 REM 

305 REM PRINT LETTER IN POSITION 

306 REM 

810 PR I NT "W" 

326 PRINT TfiBaft>; ,, H"L* ,, 3";"B"; 

330 1 1=1 

846 GOSUB 1546 



850 LF=LF+1 
860 RETURN 
370 NEXT I 

989 IF LF=G THEN GOSUB 9W 
390 RETURN 

9B4 REM 

835 REM LETTER NOT IN WORD 
896 REM 
900 L-L+1 

310 PRINT"H(M_ETTER HOT IN WORD S" 
320 GOSUE 1696 

930 OH L GOSUB 1040,1080,1150,1190,1230 

946 IF L>5 THEHON L-5 GOSUB 1270, 1356, 1430, 1470 

350 IF L<19 THEN RETURN 

954 REM 

955 REM PRINT FEET OF MAN 

356 REM 

960 K=19 

970 GOSUB 1650 

930 PRINTTflB<9>; u .ST 9 :J *SJ"; 

990 PRINT")!]" 

1000 PRINTTflB<5)"Bi"Z*"3" 

1004 REM 

1005 REM FAILED TO GET WORD 

1006 REM 

1010 PRINT"SORRV,VOU LOST S3"; 
I02O N=Lfl+l 
1.030 RETURN 
1934 REM 

1035 REM PRINT EASE 

1936 REM 

1040 K=20 

1056 GOSUB 1650 

IO60 PRINT" 3"; 

1070 RETURN 

1074 REM 

1075 REM PRINT UPRIGHT 

1076 REM 
1080 K=6 

IG90 GOSUB 1650 
1100 FOR 1=1 TO 14 
1 I 10 PRINTTAB<5>;"& H 
1120 NEXT I 

I m FRINTTfiE<5>;'WJ 

I 1 40 RETURN 
1144 REM 

II t;> REM PRINT HORIZONTAL 

I l 46 REM 
I ISO K=5 
I 160 GOSUB 1650 

I 170 PRINTTAE-:5 >, "£ ^SM^"; 



1183 RETURN 

11 84 REM 

1185 REM PRINT DIAGONAL SUPPORT 

1186 REM 
1139 K-18 

126Q GOSUB 1659 

1210 pr i NTTflE cs > ; " nnzrwinzrwinzrwinzrwis" > 

1220 RETURN 

1224 REM 

1225 REM PRINT ROPE 

1226 REM 
123S K=6 

1248 GOSUB 1650 

1256 PRINTTRB<11) : " I H"; 

1260 RETURN 

1264 REM 

1265 REM PRINT HEAD 

1266 REM 
1270 K=7 

1280 GOSUB 1650 
1290 PRINTTfiB<10);"sr V 
1SB0 PRINTTAK95 ; " /T++^ " 
1310 PRINTTAE < 9);" M IK" 
1320 PRI NTTflB <10>.: 1, \^" 
1330 PR I NTTflB < 11); " SJ"; 
1340 RETURN 

1344 REM 

1345 REM PRINT BOD? 

1346 REM 
1350 K=ll 

1360 GOSUB 1650 

1 370 PR I NTTflB < 9 ) ; " / V 

1380 PRINTTflB<8>; " I ft f I I " 
1390 PRINTTflB<8>; " lit II" 
14Q0 PR I NTTflB (SO j " U TU " 

1419 PRINTTfiB<10>;"( B"; 

1420 RETURN 

1424 REM 

1425 REM PRINT HANDS 

1426 REM 
1430 K=15 

1440 GOSUB 1656 

1450 PRINTTRB<9>;"#I BtS"; 

1460 RETURN 

1464 REM 

1465 REM PRINT LEGS 

1466 REM 
1470 K»I6 

1430 GOSUB 1650 

1490 FOR 1=1 TO 3 

150O PR I NTTflB < 1 > "S I I" 
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1510 NEXT I 

1520 PRINT"*"; 

1530 RETURN 

1540 X=II-1 :V=Lfl-II 

1550 if x=o find v=e then leoe 

1560 IF X=0 THEN A$=" "+RIGHT$(A$, V) : RETURN 
1570 IF V=S THEN A$=LEFT*<A*,X>+" " : RETURN 
1530 A*=LEFT*<A*,X>+" "+RIGHT*CA$,Y> 
1590 RETURN 

1600 A*="" 

1610 FOR 1=1 TO Lfi 
1620 Af=A*+" " 
1630 NEXT I 
164y RETURN 
1650 FOR 1=2 TO K 
1660 PR I NT "M" ; 
1670 NEXT I 
163Q RETURN 
1690 T=TI 

1700 IF<TI-T><100 THEN 1700 
1710 RETURN 

1714 REN 

1715 REM WORD DATA 

1716 REN 

1720 DATA ABSENCE, ACCEPT, ACCIDENTALLY 

17:":fi DATA ACCOMMODATE, ACHIEVED, ACKNOWLEDGE 

1740 DATA ACQUAINTED, ADDRESSES, AERIAL 

1750 DATAAGGRAVATE, AGREEABLE, AMATEUR, AMONG 

j 760 DATA ANTARCTIC, ANXIETY, APFARENT, APPEARANCE 

1770 DAT AAPPROPR I ATE , ARCTIC,. ARGUMENT, ARRANGEMENTS 

1 730 DATA ASCENT, ATHLETIC, AWFUL, EACHELOR 

1790 DATA BEG INNING, BELIEVED, BENEFITED, BREATHE 

1*00 DATA BRITAIN, BUSINESS, CAPTAIN, CEILING 

1 810 DATA CEMETERY, CERTAIN, CHOICE, CLOTHES 

1 A?fl DATA COLLEGE, COMING, COMMITTEE, COMPARATIVE 

1S30 DATA COMPETENT, COMPLETELY, CONSCIENTIOUS 

I :-:40 DATA CONSC I OUS , CONS I STENT , CON YEN I ENCE 

1 r:Svj DATA COP I ES , COURSE , COURTEOUS , COURTESY 

i 360 DATA CRITIC I SM , DECE I VE , DEC I S I ON , DEFINI TE 

1370 DATA DESIRABLE, DESPERATE, DISAPPEARED 

1 8S@ DATA D I SAPPOINTED , D I SASTROUS , D I SC I PL I HE 

|::hO DATA DISSATISFIED, EFFICIENCY, EIGHTH 

I 900 DATA ELIMINATED, EMBARRASSED, EMPHASISE 

I 91 Q DATA ENTHUSIASM, EQUIPPED, ESPECIALLV 

1 920 DATA ESSENTIAL , EXAGGERATED , EXCELLENT 

I 930 DATA EXERCISE , EXHAUSTED , EX I STENCE 

I940 DATA EXPENSE, EXPERIENCE, FAMILIAR 

1950 DATA FEBRUARY, FINANCIAL, FOREIGN 

I960 DATA FORMERLY- FORTY, FRIEND, GAUGE 

I 9 , 7 DATA GENIUS ■ GOVERNMENT, GRAMMAR 

I 930 DATA GRAMOPHONE - OR I E VANCE , GUARD 
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1990 DATA GUARDIAN, HANDKERCHIEF, HEIGHT 

2960 DATA HEROES' , HONORARV , HUMOROUS , HUNGRY 

2010 DATA HURRIEDLY, HYPOCRISY, IMAGINATION 

2020 DATA IMMEDIATELY, IMMIGRATE, INCIDENTALLY 

203O DATA INDEPENDENT, INDISPENSABLE 

2O40 DATA INFLUENTIAL, INTELLIGENCE 

2U50 DATA IRRESISTIBLE, KNOWLEDGE, LIGHTENING 

206G DATA L I TERATURE , L I VEL I HOOD , LOSE 

2070 DATA LOSING, LYING, MAINTENANCE 

20SO DATA MARRIAGE, MEANT, MEDICINE 

203O DATA MEDITERRANEAN, MINIATURE 

21S0 DATA MINUTES, MISCHIEVOUS, MURMUR 

2110 DATA NECESSARY , N I ECE , NOT I CEABLE 

2123 DATA OCCASIONAL, OCCURRED, OCCURRENCE 

2 1 30 DATA DM I TTED , OP I H I ON , OPPORTUN I TV 

2140 DATA ORIGINALLY, PARALLEL, PARLIAMENT 

2150 DATA PASTIME, PERMANENT, PERMISSIBLE 

2160 DATA PERSEVERANCE, PHYSICAL, PLANNING 

2170 DATA PLEASANT, POSSESSES, PRECEDING 

2 1 SO DATA PREFERENCE, PREJUDICE, PRIVILEGE 

2 1 90 DATA PROCEDURE , PROCEEDS, PROFESS I ONAL 

2200 DATA PROFESSOR, PRONUNCIATION 

22 1 a DATA PROPR I ETARV , PSYCHOLOGY , QU I ET 

2220 DATA REALLY , RECE I VED , RECOGN I ZED 

2230 DATA RECOMMENDED, REFERRED, RELIEVED 

2240 DATA REPETITION, RESTAURANT, RHYTHM 

2250 DATA SCARCELY, SECRETARIES.. SEIZE 

2263 DATA SENTENCE, SEPARATE, SERGEANT 

2270 DATA SEVERELY, SHINING, SIEGE, SIMILAR 

2288 DATA SINCERELY, SPEECH, STRENGTH 

2298 DATA SUCCESSFUL, SUPERSEDE 

2360 DATA SUPPRESSION, SURPRISING, SYNONYM 

23 1 DATA TENDENCY , TRAGEDY , TRANSFERRED 

2320 DATA TWELFTH, UNCONSCIOUS 

2330 DATA UNNECESSARY , UNT I L , USUALLY 

2340 DATA VALUABLE, VIEW, WEDNESDAY 

2350 DATA WOOLLEN 

2360 DATA END 

2370 END 

READY. 



GOMOKO 



DESCRIPTION 



In this game the computer takes on the guise of a wise 
oriental and offers us the ancient game of GO or Gomoko. 
The game involves two opponents attempting to create 
vertical, horizontal or diagonal patterns of five disks in a row. 
The board has 10 vertical and 10 horizontal intersecting lines 
to form a grid. 

Each player takes it in turns to position a disk over an 
intersection on the grid battling to be the first to create a line 
of five consecutive disks. 

The player will find that the wise oriental (the computer) will 
take a long time - 40 seconds - to complete his move after 
calculating all the possible moves. It is possible to win, the 
player will find it very difficult to do so but will gain a 
tremendous amount of enjoyment when he does win. 

EQUIPMENT REQUIRED 



Basic VIC-20. 



RUNNING THE PROGRAM 



After loading type in run and follow the instructions. 



PROGRAM STRUCTURE 



The lines of interest in this program are as follows. 

40-170 Main program loop. 

180-220 Produce computer's move. 

230-360 Input player's move and check for legality. 

680-840 Check the move chosen in routine at 180 for 

validity and calculate for possible win. 
1470-1600 Display the board of play. 
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19 REM GOMOKO 

20 rem *MMMmmmmMmm**w*MMM*M*-**# 

39 REM 

40 DIM VMAX<2:>,NF<2;>,WD<2,20,4> 

59 DIM BD<10,10>,DB<20>:POKE3S879,S 

60 GOSUB 1470 
70 GOSUB 168 
80 GOSUB 230 
90 GOSUB 1160 
100 rtoSUB 680 

110 IF VMfiXt2>=19 THEN WIN=2:G0T0 ISO 
120 GOSUB 370 

130 IF VWAX<1»=14 THEN WIN =l^GOTO 159 
HO GOTO 8© 

150 IF WIN=1 THENPRINT"iiI WIN S"-ST0P 
160 PRINT'-WOU WIN ii' 1 
170 END 

174 REM 

175 REM PRODUCE COMPUTERS FIRST MOVE 

176 REM 

186 Rl=INT<RND<TI>*6>+3 

190 Cl=INT<RND<TI>*6>+3 

200 PF=7796+22*R1+C1 

210 POKE PF/ 81: POKE PF+30720, 5 

220 RETURN 

224 REM 

225 REM INPUT VOUR MOVE 

226 REM 

230 INPUT "S2NOUR MOVEST;R*,« 
240 PRINT "3 "J "8"; 

250 R=VAL(R$) C=hSC(C$>-64 

260 I FflBS < R-5 . 5 > <=4 . 5ANDABS <C-5 . 5><=4 . 5THEN230 

27G GOSUB 1580 

280 P=7796+22*R+C 

290 D=PEEK<P> 

300 IF D=46 THEN 350 

310 PRINT"SPACE OCCUPIED" 

320 PA=120: GOSUB 1580 

330 pRiNT"fl a"; 

340 GOTO 230 

350 POKE P, 87 J POKE P+38720,2 

360 RETURN 

378 FOR fl=l TO 2 

380 IF VMAX<AK14 GOTO 410 

390 GOSUB 1410 

40O RETURN 

410 NEXT A 

■120 FOR R-l TO 2 

•130 IF VMBX<flX10 THEN 470 

4 46 IF A=2 AND VMAX<2X12 AND VMAX< 1 >=9THEN478 
■I5S GOSUB 1220 
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469 RETURN 

470 NEXT M 

480 FOR fi=l TO 2 

490 IF VMFlX<FD<9 THEN 520 

560 GOSUE 1220 

510 RETURN 

520 NEXT fl 

539 PMRX«0:MT*0 

549 FOR Rl = l TO 10 

550 FOR Cl-i TO 10 

560 IF EIiCRl,Cl>-0 THEN 630 

570 P=BD<Rl,CO 

580 IF P<PMfiX THEN 630 

590 IF F=PMfiX THEN 610 

60S NT=0:PMRX-P 

610 NT=NT+ 1 

620 RM < NT >=R1 : CM(NT>=Ci 

630 NEXT C1,R1 

640 PN=INT<RND<1)*NT>+1 

650 PF=7796+22*RH < PN ? +CM < PN > 

660 POKE PF, Si: POKE PF+30720,5 

673 RETURN 

630 V=0 

690 FDRIL-1 TO 2 

700 VMflX C I L > =0 : NF<IL)=0 

710 NEXT IL . 

720 RL=1=RU=6 

730 CL=1 :CU=10-F=22 

740 GOSUE 850 

750 RL=l:RU=10 

760 CL=1 :CU=6:F=1 

770 GOSUE S 50 

730 RL=1-RU=6 

790 CL=1 -CU=6:F=23 

800 GOSUE850 

810 RL=1 :RU=6 

820 CL=5:CU=10:F=21 

83© GOSUBS50 

840 RETURN 

850 FOR R=RL TO RU 

860 S=7796+22-+R 

370 FOR C=CL TO CU 

8S0 SS=S+C 

890 FOR 1=0 TO 4 

900 CD=SS+F*I 

910 Ii=PEEK<CIO 

920 IF D=46 THEN IiW<I)=CB : GOTO 970 
930 IF TP=0 THEN TP=D : 1 1= < < TP-8 1 ) /€■+ 1 > 
940 IFTPOU THEN V=0 ' TF -0 ■' GOTO 1140 
950 V=V+5-RBSCI-2> 
960 DN<I>=0 
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979 NEXT I 

330 IF V=6 THEN 1140 

390 IF V<VMflX<II) THENV=0'OOTO 1060 

1000 IF V=VMfiX<II> THEN 1020 

1019 HFClD"8 ! VHftt<€II>*V 

1020 NF<II>=NF<II>+1 
1030 FOR J=0 TO 4 

104G WD<II,NF<II),J>=I)W<J> 

1050 NEXT J 

1060 FOR J-0 TO 4 

1070 IFBW<J>*0 THEN 11 20 

10S0 IUi=DU<JW736 

1090 Rl=INT<3W22J> 

1100 C1=HE-22*R1 

1110 EHCRI,C1>=ED<R1,C1)+1 

1120 NEXT J 

1130 V=0 : TP=0 

1140 NEXT C,R 

1150 RETURN 

1160 FOR R=l TO 10 

1170 FOR OS TO 10 

1180 BDCR,C>=0 

1130 NF<II>=NFCII)+1 

120© NEXT C.R 

1210 RETURN 

1220 PMflX=0:NT=0 

123© FOR 1=1 TO NF<fl> 

1240 FOR J=0 TO 4 

1250 P=WD<B, I,J> 

1260 IF P=0 THEN 1340 

1270 R1=INTC<P-7796V22> 

1 230 C 1 • < P-7796 > -22*R 1 

1290 IF BIKRl..ClXPMrtX THEN 1340 

1300 IF BD<R1,C1>=FMBX THEN 1320 

1310 NT=0 = PMFiX=BIKRl,Cl> 

1320 NT=NT+1 

1330 EECNT>=P 

1340 NEXT J 

1350 IF H=2 AND PMfiX=i THEN 1396 

1360 PN=IHT<RNHCO*NT>+l 

1 370 POKE DB < PN ) > S 1 = POKE EE C PN > +30726 , 5 

1336 RETURN 

1390 GOSUB 526 

1400 RETURN 

1410 FOR J=0 TO 4 

I-I20 IF UIKfi,l,J>=0 THEN 1440 

1430 P=WB<fl,l*J> 

1-140 NEXT J 

1450 POKE P.. 31 POKE P+36720,5 
I4£@ RETURN 
1464 REM 



1465 REM DISPLAY BOARD 

1466 REM 

1470 PRINTMKWWT 
1430 PRIHTTAE<7>; "ABCDEFGHIJ" 
1496 PRINTTAIKb); "fti 
1500 NN=4 

1510 FOR 1=1 TO 10 
1520 IF I>9 THEN NN=3 
1 530 PRIHTTflB<HN> ; STR*< I >+" 
1540 NEXT I 
1550 PRINTTflB<6); "IT 
1560 WIN =9 
1570 RETURN 
1530 T1=TI 

1590 IF TI-TKPfi THEN 1590 
1600 RETURN 
READY. 
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SUPERMIND 



DESCRIPTION 

This game is modelled on the popular Parker Bros, board 
game of Mastermind. The program allows the user to guess 
at its random combination of colours and will reply with a 
white marker if the colour is in the combination but not in 
that position and with a black marker if it is in the correct 
position. The function keys are used to choose the row, the 
keys 3-8 to choose the colour and the return key to enter the 
guess. It has nice use of colours and is easy to follow. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

After typing run, three pages of instructions will appear 
separated by 'press any key' when the instructions have been 
read, pressing any key starts the game. Using the function 
keys, the row on which the colour is to be placed may be set. 
The computer will not accept any colours until the return key 
has been pressed, and only then, provided that there are 
colours in all four of the positions on that column. If the 
correct combination has been guessed, or all 14 guesses are 
used up, the computer will display its secret and ask if 
another go is required. 

PROGRAM STRUCTURE 

The following lines may be of interest. 
50-90 Input for instructions. 
100-280 Display the board on the screen. 
290-350 Choose four random colours, all different. 
410-450 Set white markers in every position. 
460-500 Input and check that the key pressed is 
acceptable. 

510 570 Display pointers so that all pointers are to the 
ritjht except the pointer on the row chosen. 



580-630 Put chosen color in the chosen position. 
640-660 Failed to guess the combination. 
680-690 Check for colours in the correct position. 
710-740 Check for correct colours but in the wrong 
position. 

750-760 Display the last two routines above the 

correponding columns. 
810-860 Display the combination. 
870-910 Input for another go. 
950-1310 Instructions. 
1320-1340 Hit any key input. 



10 REM SUPERMINI} 

28 REM ****'**************************'**********' 
3@ REM 
43 22=0 

59 PRINT" riSWWKttWMI NSTRUCT I ONS < V/N > ? " 
69 OETLf = 1FLS-" "THEN66 
76 IFL$="Y"THEN920 
80 IFL$= "N" THEN 100 
90 G0TO6Q 

94 REM 

95 REM SET UP BOARD 

'^6 REM 

"l0Q PRINT'TMKItti^nW iSUPERMlND k#fl*S#" 

IIS POKE36879.140 

120 PRINT'VlSftWWelllSKWa " :DIMX<4>,D<4> 
130 R=7699 

140 PRINT" i — i — i — i — i — i — i — i — i — >" 

156 F0RM=1T03 

160 PRINT" I"; -FliRU=1T09 

170 PRINT" *31"; -NEXT: PRINT" 

130 PRINT" (■"; :FORkl=lT08 

190 PRINT"-f"; : NEXT: PRINT"-!" 

209 NEXTM 

210 PRINT" I"; : F0RW=1T09 

220 PRINT" 4t3 1" i ■' NEXT : PRINT" 
230 PRINT" ' ■ ' > ' ■'■ ' 111 
240 F0Rft=13T019STEP2 
250 POKE7701+22*fi,49+B 
260 P0K£38421+22*fl, 4 
270 E=E+1 
230 NEXT 
234 REM 

2-35 REM CHOOSE RRNDOM COLOURS, ALL DIFFERENT 

236 REM 

290 X<l?=INT<RNDCl)*e>+2 

-:y0 X<2>=INT<RND<:n*6>+2 

310 IFX<2>=X<1>THEN300 

320 XC3)=IHT(RNDCl)*6>+2 

330 I FX < 3 > =X < 1 > ORX ( 3 > =X < 2 > THE N320 

340 XC4>=INT<RNIKl>*6>+2 

350 IFX<4>=XC1)ORXC4>=X<2>ORX':4)=X(3>THEN340 
3'.'0 0=0 

370 F0R2=13T019STEP2 

3;;:0 o=g-h 

3*3 POKE33400+1+22*2,0:POKE7631+22*Z, 102 
4O0 NEXT 
•104 REM 

405 REM NHITE "•"S" IN EVERY POSITION 

406 REM 

•110 F0RV=13T019STEP2 
■120 P0KE76S0+l+22* , r',31 



4313 NEXTY 

446 FORW=1TQ250 = NEXT : PR I NT "H" 
45Q I=44:GG=7939-ZZ 

454 REM 

455 REM INPUT + CHECK FOR ILLEGAL KEY PRESS 
460 GETQ* ■ IFG*=" "THEN450 

47U I FflSC < Q$ ) = 1 3THEN630 
43G IFR3C(Q*)>132flHDRSC<Q$K137THEN510 
490 I FflSC C Q* > >50flNDflSCC Qf X57THEH5S0 
500 GOTQ460 

504 REM 

505 REM PUSH POINTERS OFF ROW 

506 REM 

510 F0ftS=7935T0S117STEP44 
520 FOKES+1,31 
530 POKES 32 
540 NEXT 

544 REM 

545 REM PUSH POINTER TO ROW 

546 REM 

550 L=2#flSC«3*>-253 

560 PQKER+L*22,31 ■ P0KER+1+L*22, 32 

570 GOTO450 

574 REM 

575 REM PUT COLOUR IN POSITION 

576 REM 

580 F=VALCQ$>-1 

590 IFL=0THENL=13 

6O0 F0KE38417-ZZ+L*22, F 

610 no:L-ii)/2;=F 

62 R ft GT 0450 

630 IFZZO14THEN650 

634 REM 

635 REM FILLED ALL 14 COLUMNS 

636 REM 

640 PRINVVQU HAVE NOT SUCCEEDED" ; GOTGSIO 

650 ZZ=ZZ+2 : FORW= 1 T04 

660 I FD ( W ; =0THENZZ=ZZ-2 = GOTO450 

67G NEXT 

674 REM 

675 REM CHECK FOR BLACK REPLY 

676 REM 
6S0 Z=0 : V=0 

630 F0RT=1T04: IFX(T;=Da)THENZ=Z+l 
700 NEXT 

704 REM 

705 REM CHECK FOR WHITE REPLY 

706 REM 

7 1 F0RE= 1 T04 = FQRH= 1 T04 : I FX < E ':>~Ii C H ) THEN V=V+ 1 

720 NEXT ■ NEXT : V=V-Z 

730 FORW= 1 T04 : B •-. W )=0 : NEXT 



746 IFZ-0TMEN790 

744 REM 

745 REM DISPLAY REPLV 
?46 REM 

750 FORM" 1 TOZ : P0KE<GG+44 > -W*44 , 8 1 
76@ P0KECGG+39764>-W*44, S : NEXT 

764 REM 

765 REM INPUT FOR ANOTHER GO 

766 REM 

77S IFZ-4THEN810 
7S9 IFV=0THEN45@ 

759 FORW= 1 TO V •' POKE < GG+44 > - < U+2 > #44 > 8 1 

S0O POKE < GG +30764 > - < U+Z > *44 , 1 : NEXT : GOTO450 

804 REM 

805 REM 0ISPLRV COMBINATION 

806 REM 

819 G=0:FORZ=13TQ13STEP2 

820 G=i"'+1 

830 PQKE38480+1+22*Z,X<G> 
340 NEXT 

850 FORM- 1 TO7O00 : NEXT 

360 P0KE3687?,27 

870 PR I NT " nSfiUlftldWlUllFlNOTHER GO ?" 

330 QETR* = IFR$=" "THEN8S8 

330 IFR$= " V " THEHRUN 

908 I FR$= "N " THENP0KE36S79 , 27 : END 

910 GOTO 880 

920 REM 

530 REM INSTRUCTIONS 
946 REM 

950 PRINTTJTHIS IS THE GAME" 
960 PRINT"Mi!J SSUPERMINDB" 
970 PRINT":eI«IN THIS GAME VOU HAVE" 
980 PRINT "TO GUESS THE COLOUR-" 
990 PR I NT "COMB I NAT I OH DEVISED" 
10O0 PRINT" BY THE COMPUTER. THE" 
1010 PRINT "4 COLOURS ARE HIDDEN" 
1023 PR I NT "BY THE COMPUTER AND" 
1O30 PRINT" IT WILL TELL VOU " 
J 04 PRINT "WHETHER VOU HAVE " 
1050 PR I NT" GUESSED CORRECTLY OR" 
1060 PR I NT "NOT, 
1070 G0SUB1328 

V.m PR I NT" W WHITE MARKER TELLS" 
ID90 PR I NT "YOU THAT A COLOUR IS" 
I 1 110 PRINT" IN THE COMBINATION BUT" 
I J 10 PR INT "NOT IN THE RIGHT PLACE" 
1120 PR I NT" AND A ELPCK MARKER" 
1130 PPIHT"TELLS VOU THAT A " 
1140 I HIT " COLOUR THAT VOU GUESSED " ; 



llFifi PRINT" IS IN THE COMBINATION" 
IIkR pRINT"fiND IN THE RIGHT PLACE" 
117S PR I NT "CHOOSE THE ROWS BY" 
Use PRINT"PRESSINO KEYS F1,F3," 
1190 PRINT"F5, OR F7 RESPECTIVELY 
12O0 GOSUE1320 

1210 PRINT 'TITHE COLOURS THAT VOU " 
1220 PR I NT "MAY CHOOSE ARE 3-8" 
1230 PRINT" THESE COLOURS ARE AS " 
1240 PRINT "FOLLOWS : 3- RED" 

PRINT" 4- CVAN" 

12fifl PRINT" 5- PURPLE" 

127U PRINT" 6- GREEN" 

1280 PRINT" 7- BLUE" 

1290 PRINT" 3- YELLOW" 

1300 GOSUE1320 
1 :-; 1 fi GOTO 1 GG 

132^ pRINT":sM«!!M?HIT AHV KEV" ; 
133U GETL*: IFLf=""THEN1330 
1340 RETURN 
RE AD V. 



CONQUEST 



DESCRIPTION 

In Conquest the aim of the game is to vanquish the knights 
protecting the castle. The display consists of a green 
background and a believable castle with a 
heart— representing the knights moving to various positions 
within the castle. 

Frustratedly, the attacker— a cannon— seeking to demoralise 
the defenders and held at bay by a moat, fires on the user's 
command. 

EQUIPMENT REQUIRED 
Basic VIC-20. 

RUNNING THE PROGRAM 

Simply load, type RUN and follow the instructions. The 
operating keys are: A = left, D = right, * = fire. 
The player must also remember that 9 = easiest and 
1 = hardest in the levels of difficulty. You have only 60 
seconds to complete the game. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows: 

30-90 Print instructions. 

100-190 Input difficulty level. 

200-370 Display castle. 

380-840 Play the game. 

850-970 Finished, input for another game. 

1110-1190 Play tune at beginning of game. 

1200-1240 Data for music. 

1250-1300 Input from keyboard. 

1320-1380 Run out of time. 

1390-1450 Display commands. 



1 REM CONQUEST 

2 REM 



i> - 1 ■ - !■ ■ i - .i -j 'X* -X- :lj -A* -A.- *JU' 
!■ ■ ■ ■ "T* r T- t* »T» 1* "T" T + *P *T- 'T - X V m" 



3 REM 



10 FORI =32fcT0S35 : POKE I , 255 : NEXT 
20 P0KE36879 , 93 : P0KE36S69 * 242 

24 REM 

25 REM INSTRUCTIONS 

26 REM 

30 PR INT" CONQUEST" : PRINT"* 
46 PRINT-'Wt'OUR AIM IS" 
50 PRINT-WTO KILL ALL THE" 
60 PRINTERS TV KNIGHTS " 
?@ PR I NT". WHO ARE HIDING " 
30 PRINT"j?BROUND THE CASTLE. » 
90 OOSUB13S0 

34 REM 

35 REM INPUT DIFFICULTY LEVEL 

96 REM 

100 PRINT'TIINPUT DIFFICULTY" : PRINT" K*l< 1-9)" 

IIS GETHH$:IFIfH*=" ,, THENli0 

120 DF=VflLCDH$> = IFDF< 1 0RDF>9THEN 110 

130 DEFFNE<X>=INT<RND<4>*J50+DF*10> 

14S K*197:2=PEEK<K> 

150 F0KES25.DF 

1 60 BEFFNfi < X > = I NT < RND < S > *98+ TV ) 
170 P0KE36369, 240 : TL=7742 J TD=7724 
ISO Y1=106:Y2=113-Y3=117;BL=S142 
1 98 KN=S3 : flR=30 = TV=7758 

194 REM 

195 REM DISPLAY CASTLE 

196 REM 

208 pr i nt rmwtfftwrLTLn rLTLn ■ 



219 PRINT H IMSf 


1 1 


1 


i' 


220 PRINT"»WI 


1 1 I 1 


1 


ii 


230 PRINT'*i6S9K 


1 / \ 1 


/ 


ii 


240 PRINT"WW1 I 


f 1 


1 


ii 


250 PR I NT "Win/ 




\ 




260 PRINT"liWM 


LTU 


1 


■I 


270 PRIMT">M*I 




t 


ii 


20W PR I NT "WHIM 


+ 4 +4 


f 


ii 


290 PRINT-niWI 




1 


ti 


300 PR I NT" I* WM 




1 


ii 


316 PRINT-Wttl 


1 1 


1 


ii 


32u PR I NT "WWW 
330 PRINT-WMI 


1 Irvl 1 


1 


■I 


1 1^1 1 


f 


■I 


MO PRINT"»>« 


1 I 


1 


ii 


350 PRINT"»WI 






» 


:60 PRINT"33l 








378 PRINT" 








•74 REM 








i/5 REM PLAY THE GAME 
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376 REM 

283 POKEEL, VI : POKEEL+1 , V2 = POKEEL+2, V3 
393 PR I NT 11 SMECORE "S ■ T I* = " 039000 " 
430 PO=FNH'LT) 

419 MM-PEEK<PO> ; IFIiF=0THENDF=PEEK(826/' 

4£m FOR 1 = 1 TO I NT < RHH < 8 >*DF*1S> 

43G PRINT"S*iB»e&*S>&»»*rriME "RIGHI$<TI$j2) 

440 I FVHL CT I* >M 80THEN 1 320 
450 G0SUB1250 

460 POKEFO, KN : PGKEP0+3S720, 2 
47U POKEK.-O^NEXT 
488 POKEPO.MM 
493 GOT 04 90 

503 P0KE36379 , 27 : PR I NT" 3" 

510 IFBL+O3161THEN560 

520 POKEEL, 32 = POKEBL+1 , 32 : PQKEBL+2, 32 

539 EL=BL+1 : 3FBL>S161THEH5S0 

540 POKEELj Vl = POKEBL+1 , V2 : PGKEBL+2, V3 
550 RETURN 

5t'0 T2=T2+0. 5 : RETURN 
570 REM LEFT 

533 IFEL-KS1 42THENRETURN 

5*ii FuKEBL, 32 ; POKEBL+1 > 32 = POKEEL+2, 32 

603 BL=BL-1 ; IFBLC8142THEN560 

613 FOKEBL, VI : POKEEL+1 , V2 : POKEEL+2, V3 

620 T2-T2+. 5: RETURN 

630 P0KE36373, 15=T3*=TIf 

643 F0RW=BL+lT07724STEP-22 

650 XX=PEEK<W> : VV=PEEKCW+307205 

660 I FPEEK< W> =33THEN7 13 

670 POKEW, FlR ■ POKEW+39729 , 3 : POKEK, 

638 F0RU=255TO1 353TEF-1 : F0KE36376, U = NEXT 

693 POKEW , XX ; POKEW+30720* VV : NEXT 

703 P0KE36876, : TI*=T3* : RETURN 

713 P0KE36876 > ; F0KE36877, 249 

729 FORDE=1TO20 : P0KE36877, 9 : POKEW+33723, 4 

739 POKEW+30720* 1 ; POKEK > 3 ■ P0KE36S77, 139 ; NEXT 

749 TI*=T3*:POKE36S77.0 . 

759 POKEW+33720, VV : POKEW. MM : POKEK, 9 

769 8=3+1 

773 PRINT"»*ECORE "S : .T2=VRL<RIGHT*<TI*i 2>> 

739 IF S>5 THEN 803 

739 0MSG0TO320, 339, 820, 939, 323 

399 3=8-5 

813 0N3GOT03&3, 323, 989, 820, 843 
329 IFT2M09THEN1329 
333 POKEK,3:GOTO430 
349 G0SUB1110 

844 REM 

845 REM CONGRATULATIONS, FINISHED 
346 REM 
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850 FRINTaWNOU HAVE VANQUISHED" 

860 PRINT"MMTHE EVIL KNIGHTS-"; 

870 PRINT "JflWifliaSBIHHWELL DOME!" 

880 PRINT":Wt'OUR TIME="T2 

850 PR I NT " mm SK J LL LEVEL " PEEK< 828 > " > " 

90G DF=PEEK<325> :T1=PEEK<825+DF) 

9LB IFT2<TITHENT1=T2 

928 PRINT")<ttMlLOHEST TIME="T1 

930 P0KE325+BF, Tl 

940 PRINT"MMWRNOTHER QUEST?" 

358 GETfl* : IFR#<>"V"RNrfRi<:>"N"THEH950 

960 IFR*="N"THEH1458 

970 CLR=GOTO100 

■^Rfl P0l-'ER1R5.S:POKE3S985.3 

3 90 I FVflL < T I $ » 1 88THEN1 328 

1 006 BL=BL-31 42 = POKES 1 S3, BL i F0KE38993, 5 

1010 CLR 

1 029 riEFFNfi<IiF)=INT <RNB<3) *98+TV> 

1 030 DEFFNB ( BF) = IMT CRMS C4> * DF*1 8) 
1Q40 K*i97-Z=PEEKCIO 

1 05O TL=7742 ■ TB=7724 : VI = 186 : V2=l 1 3 : V3=l 17 

1060 KN=S3 = flR-30 ■ BL=PEEK<3133>+3142 = TV=7753 

1070 T2=PEEK<8184> =S=PEEK<8185> 

1838 PRINT-SHWSCORE "S 

1090 BF=PEEK<8253 

1 1 08 F0K£3&36*> 248 : TU=2 : G0T0488 

1104 REM 

15.05 REM PLflV TUNE FIT BEGINNING OF GRME 
1106 REM 

1 1 1@ RES TORE ■ 52=36376 : V-36878 
1120 POKEV, 15 
1130 RE RHP 

U40 IFP=-1 THENRETURN 
1150 P0KES2,P 
1160 RE ADD 

1 1 78 F0RDE=1 TOP = NEXTDE 

1130 POKE 32 j 
1190 GOTO 11 30 
1194 REM 

1135 REM DRTR FOR MUSIC 

1196 REM 

1 209 DRTR 2 1 7 , 206 , 2 1 3 , 260 , 223 , 488 
1218 DATR227, 188,234, 188,230,480 
1220 DRTR227, 188, 234, 180, 230,468 
J, 238 BRTA223 , 288, 227, 288, 217, 288 
1248 BRTA-1 

1244 REM 

1245 REM INPUT FROM KEYBOARD 

J 24 6 REM 

1250 FORT=t T01 

1260 Z=PEEK<K> 



1276 IF2=14THENGOSUB630 

1289 IFZ=13THENGOSU£510 

1290 IFZ«17THENGOSUE570 
1300 NEXT 

1310 RETURN 

1314 REM 

1315 REM RUN OUT OF TIME 

1316 REN 

1320 F0RBE=1T01 500 -NEXT 

1338 PRINT'™CUT OF TIME!" 

1340 PR INT" WMMflNOTHER QUEST?" 

1350 GETfi$: IFf=f*O "V"flNI)fl$O"N"THEN1350 

1368 IFfl*="N"THEN145© 

1378 CLR: GOTO 160 

13S0 IFTU>1 T.HENRETURN 

1334 REM 

1335 REM DISPLAV COMMANDS 
13S6 REM 

1 390 PRINT " HWMCOMMfiNDS ; PRINT" 

1400 PRINT"fi-CflNNON LEFT" 
1410 PRINT"D-CflNNON RIGHT" 
1428 PRINT"*-CfiNNON FIRE" 
1430 FOR I * 1 T03 GOSUBl 110: NEXT 
1440 RETURN 

1458 P0KE36S79, 27 : PRINT"Sn" 
REflDV. 
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HI-RES AID 



DESCRIPTION 



This program is a useful aid to producing graphics 
characters. With this program the user may design any 
characters he wishes (subject to the limitations of the grid). 
Using the data he will be provided with, the user has a ready- 
made data statement for his own program. 

EQUIPMENT REQUIRED 

Basic VIC-20 with 3K expansion. 

RUNNING THE PROGRAM 



This program will run without expansion if all the REM 
statements are removed. 

After loading and typing RUN, the user will initially see the 
words 'Moving chr generator' appear at the top of the 
screen. After that the screen will clear and an 8 x 8 grid is 
drawn out. The user then inputs the X and Y co-ordinates of 
the block he wishes to fill, without separating by commas. 
The block is then coloured in and the user carries on drawing 
in his character. When the user wishes to see what his design 
looks like he must type in co-ordinates 00; the screen clears 
to display hundreds of little aliens (or whatever). 
Hitting any key then prints out the values to be entered as 
data for that particular character; then the user may continue 
to design another character. 



PROGRAM STRUCTURE 

The lines of most interest in this program are as follows: 

80-170 Print out for grid. 

190-200 Input co-ordinates. 

220-230 Calculate X and Y from previous routine. 

250 Check if in range. 

270 If 00 entered, end of design. 

290 Bleep to show input accepted. 

310 Calculate top left hand corner of block. 
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330 Check for double entry. 

350 Print out blocks. 

370-380 Calculate value of block. 
400 Turn bleep off. 

420 Return for next input. 

450-480 Store the character. 
500-510 Change the registers. 

530-600 Set screen to black and display hi-res character 
on the screen. 

620-710 Restore the registers and display the values of 

the character on the screen. 
730-770 Move the character generator. 
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10 REM****HI-RES AID**** 

£0 REM*'***************** 

30 PRINT"3lOViHG CHR GENERATOR" 

40 GOSUB730 

50 PRINT : PRINT 

6© REM**SET VARIABLES** 

m U= 1 60 - £3=36376 ' P0KES3+2, 1 5 

30 REM**PRINT OUT GRID** 

30 PRINT"*:" = PRINT 

100 PRINT" 1 2 3 4 5 6 7 8" 

110 F0RI«1TG8 

129 PRINT"I I I I I I I I I " 

130 PRTNT" i I 1 i i i i i i " 
140 NEXT I 

150 pRiNT"rr ^TABasrv" 

160 Z=7700 
178 PRINT 

130 REM**ENTER CO-ORDINATES** 

190 INPUT"XV"Jfi$ 

200 IFLEN<A*>O2THEN420 

210 REM**PICK OFF X,V** 

220 X=VALaEFT$<A*,l>:> 

230 Y= VAL 1" R I GHT$ < A$ , 1 ) > 

240 REM**CHECK TO SEE IF IN RANGE** 

250 IFX>8GRV>3THEN420 

266 REM**ENB OF DESIGN** 

270 IFX=0ANDV=0THEH43@ 

230 REM**ELEEP ON** 

290 POKES3.200 

3O0 REM**CALCULATE TOP LEFT HAND CORNER OF BLOCK** 

310 P=Z+X*2+CV*44> 

320 REM**CHECK FOR DOUBLE ENTRV** 

330 IFPEEK<P)=QTHEN420 

340 REf1**PRINT OUT BLOCKS** 

350 FOCEP , Q : POKEP+ POKEP+22 , Q i POKEP+23 , Q 

360 REM**CALCULATE VALUE OF BLOCK** 

370 U=ABS<X-S> 

330 A<V>=A<Y)+.;2ttl> 

390 REM**BLEEP OFF** 

4O0 POKES3,0 

410 REM** BACK TO INPUT** 
42G PRINT ".TT GOTOl 90 
430 PR I NT "3" 

440 REM**STORE PATTERN'S VALUE IN NEW GENERATOR** 

450 POKES3.0 
460 FORI=lTOS 
'170 POKES 143+ 1, A< I > 
430 NEXT1 

REM**CHANGE REGISTERS** 
!>m0 P0KE36869, 253 
510 PCIKE36866- PEEK < 36366 > OR 1 28 
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520 REf1**CHAHGE SCREEN COL. TO BLACK** 

530 P0KE36S79,8 
540 PRINT 11 .T' 

550 REN**PRIHT HI -RES CHR. ON SCREEN** 
56U FORI=7702TOS1 S5STEP4 
57U POKE I i 128 
530 NEXT I 

590 PR I NT "m HIT ANY KEY 

609 GETAf : IFfl*=" " THEN600 

610 REM**' RE ST ORE REGISTERS** 
620 POKES 6369. ■ £40 

bSG POKES 68 66.. 150 

640 PR I NT "."33" 

650 P0KES6S79..27 

660 PR I NT "THESE ARE THE VALUES" 

670 PRINT"WTO ENTER AS DATA" = PRINT: PRINT 

6S0 FOR 1 = 1 TOO 

690 PR I NTH I :j 

7G0 NEXT I 

710 END 

72S REN**MOVE CHR. GENERATOR** 

730 FORI=0TO1O24 

740 POKES 120+ 1 , PEEK (3276S+I > 

750 NEXTI 

760 PR I NT" 3" 

770 RETURN 

READY. 



TINYMON 

DESCRIPTION 

One of the functions missing on the standard Vic is the ability to 
enter and explore the inner workings of the machine. The 
program Tiny mo n allows access to the Vic's internal memory, 
on either the standard Vic computer or one with any size 
expansion added, and provides six commands for manipulation 
and working of that memory. 

Once the program has been entered and RUN {see next 
section), the following six commands are available : 

1) All monitor instructions start with the prompt '.'.To 
display memory, enter : 

.M 123E 12A7 (for example) 

And the Vic will respond with something like : 

.123E AA39 17 FF04etc. 

To change memory, display the required range of memory first, 
and then just type over the locations to be changed. Don't 
forget to press RETURN first! 

2) To display registers, enter : 
.R 

and the Vic will display (for example) : 

PC SR AC XR YR SP 

.;1234 30 00 22 33 F8 

These are the internal registers of the 6502 processor. To 
change them, just type over the ones you wish to alter, and 
then press RETURN. 

3) To return to Basic, enter : 
.X 

4) To run a machine language program, enter : 
.G 1400 (for example) 

and the program will execute from that address. 
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5) To save specific memory locations, enter : 
.S 'NAME',01,1250,13AO 



Where 01 is the device number (cassette deck in this 
instance), 1250 is the start address of the memory block you 
wish to save, and 13A0 is the end address PLUS ONE !! 
Always add one to the end of the memory block you want to 
save, owing to a peculiarity in the Vic's operating system. 

6) To load programs into memory, enter : 
.L 'NAME',01 

Programs always load to where they were saved from. 
ENTERING AND RUNNING THE PROGRAM 

To enter the program, a monitor is required, you therefore 
need access to a Commodore PET computer before going 
any further. The reason for this? This program will give your 
Vic a monitor, but to enter the program you need a monitor. 
Using a PET, enter its monitor by entering SYS 1024 
(RETURN), and display the first block of numbers and letters 
by entering M 0400 0438. This will bring up a display of 
numbers, and you have to type in the ones shown in the 
listing at the end. Don't forget to press RETURN at the end 
of each line. 

When you've finished the first block, enter .M 0440 0478 and 

type in the second group of numbers. 

Carry on in this manner until the final block i.e. .M 0800 0818. 

Before doing anything else, save this by typing .S 

TINYMON',01 ,0400,0819, assuming you are using a cassette 

deck. 

With something of this length it is more than likely that you'll 
nave made a mistake or two along the way, the following 
'checksum' has been provided to a) see if you've typed it all 
in correctly, and b) find out where the errors lie. 
Type in the following short program, IN DIRECT MODE 
ONLY, if the number that is printed up at the end equals 
117952, CONGRATULATIONS!! You should have a working 
copy of Tinymon. 
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A = 0:FORI = 1024TO 2079 : A = A + PEEK(t) :NEXT:PRINTA 



Take your tape over to your Vic, load it in in the normal way, 
and RUN it. You now have access to the Vic monitor, which 
can be re-accessed by a SYS 13 call. The program itself 
occupies about 800 bytes, that should leave plenty of space 
for you to explore the inner workings of the Vic. 
If the number displayed is not 117952, then we have 
problems. Take the program mentioned earlier ; 

A = Q:FORI = XTO Y : A = A + PEEK(I):NEXT:PRINTA 

The following table shows the values of X and Y to be 
entered to check each block in turn, and the total that should 
be displayed. If your total differs from the one printed here, 
you've found a block with a mistake (or two) in it. Re-enter 
the monitor, check your listing against the original, and 
correct any mistakes you find. After checking each block, re- 
save the whole program as described earlier. 



BLOCK 



NO. 


X 


Y 


TOTAL 


1 


1024 


1087 


3841 


2 


1088 


1151 


6376 


3 


1152 


1215 


6272 


4 


1216 


1279 


5922 


5 


1280 


1343 


8322 


6 


1344 


1407 


8022 


7 


1408 


1471 


8451 


8 


1472 


1535 


7098 


9 


1536 


1599 


5853 


10 


1600 


1663 


7007 


11 


1664 


1727 


8287 


12 


1728 


1791 


7240 


13 


1792 


1855 


6786 


14 


1856 


1919 


9362 


15 


1920 


1983 


9475 


16 


1984 


2047 


6551 


17 


2048 


2079 


3130 



The effort involved in typing this in should be amply 
rewarded by the results obtained. 



165 



10 PRINT'TMION IB XP" 
20 PRINT"*]. R 

3* PRINT" REGISTER DISPLAY 

40 PRINT":?]. M FFFF TTTT 

50 PRINT" MEMORY DISPLflV 

60 PRINTMSJ.X 

70 PRINT" EKIT TO BASIC 11 

80 PRINT"*]. G Aflflfl 

■=5y PRINT" GOTO >'.E>0 ADDRESS 

1 G0 FR I NT" M. S " CHRt 34 ; " PPPP " CHR* < 34 > % 1 j FFFF .. TTTT 

110 PRINT" SAVE PROGRAM 

120 FR I NT " M. L" CHR* < 34 ) " PPPP " CHR* ( 34 > 

ISO PRINT" LOAD PROGRAM 

REflDV. 

100 PRINT'TMBSWH TIHVMON 

HO PRINT")!) JIM BUTTERFIELD" 

129 SVS < PEEK C 4 3 > + 256*PEEK ( 44 ; +G78 > 

REflDV. 



REflDV. 
E* 

PC IRQ SR AC XR VR SP 
. t O005 E62E SO 00 5E 04 F3 



0400 


00 


18 


04 


64 


00 


99 


22 


93 


0408 


11 


11 


12 


ID 


ID 


ID 


20 


54 


04 1 


49 


4E 


59 


4D 


4F 


4E 


23 


00 


041S 


31 


04 


6E 


00 


'B'J 




11 


20 


tf4^y 


4fl 


49 


4D 


20 


42 


55 


54 


54 


042S 


45 


5i 


46 


49 


45 


4C 


44 


22 


O430 


00 


4C 


04 


73 


00 


9E 


23 


C2 


043S 


23 


34 


33 


29 


Hfl 


32 


35 


36 


©440 


AC 


C2 


23 


34 


34 


29 


flfl 


30 


0448 


37 38 


29 


00 


00 


00 


Efl 


EA 


0450 


fl5 


2D 


85 


22 


A5 


2E 


R5 


-. 


0458 


fl5 


37 


35 


24 


fl5 


33 


85 


25 


U4SU 


AO 


00 


A5 


■-.■-> 

C-C 


D0 


02 


C6 


23 


0463 


C6 


22 


El 


22 


D0 


3C 


A5 


22 


0470 


DO 


02 


C6 


23 


ce 


22 


Bl 


22 


0478 


FO 


21 


35 


26 


fl5 


22 


D0 


02 



? 
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: 0489 C6 23 C6 22 Bl 22 18 65 

: 8488 24 RR R5 26 65 25 48 R5 

: 0490 37 DU 02 C6 38 C6 37 63 

: 8498 91 37 8fl 48 R5 37 D0 02 

: 84R8 C6 38 C6 37 68 91 37 18 

: 04i=i8 9u B6 C9 BF D3 ED R5 37 

: ©4B0 85 33 R5 38 85 34 6C 37 

: Q4BS 00 00 06 00 00 00 00 00 
? 

• 04C© BF 78 RD FE FF 00 RE FF 
: 04C8 FF 06 8D 16 03 8E 17 03 
: 04D8 R9 30 20 90 FF 58 00 00 
: 04D8 63 85 05 63 85 04 63 85 
: Q4E0 03 68 85 82 63 35 01 63 

• 04E8 85 00 00 BR 86 86 38 R5 
: 04F0 01 E9 02 85 01 R5 00 88 
: 04F3 E9 00 00 85 00 00 28 B2 
? 



■ 8500 FE 00 

■ 0508 FD 08 
: 8518 20 1)2 

■ 0518 £E 28 
0520 27 20 

: 8528 F9 C9 

: 8538 E6 FF 

: 0533 OR RR 



R2 42 
R9 52 
FF 20 

m ff 

48 FE 
20 F8 

00 H0 

FD EE 



R9 2R 28 DB 
D0 1C R9 3F 
B2 FE 08 R9 
R9 O0 88 85 
00 C9 2E F8 
F5 R2 87 DD 
12 85 1C SR 
FF 80 85 CI 



? 



0548 


BD 


EF 


FF 


00 


85 


C2 


6C 


CI 


8548 


00 


80 


Cfl 


10 


E6 


4C 


4B 


FD 


8550 


08 


28 


BD 


FD 


00 


90 


F8 


28 


8558 


EE 


FD 


08 


28 


BD 


FD 


00 


98 


0568 


F0 


20 


EE 


FD 


00 


28 


4C 


FE 


0568 


00 


F8 


IF 


26 


B2 


FE 


00 


R2 


8570 


2E 


R9 


3R 


28 


DB 


FD 


00 


28 


8578 


C5 


FD 


00 


R9 


05 


20 


6F FE 


8588 


80 


R5 


C3 


C5 


CI 


R5 


C4 


E5 


0538 


C2 


B0 


DF 


4C 


58 


FD 


08 4C 


8590 


50 


FD 


00 


28 


FE 


FD 


00 


85 


0598 


CI 


36 


C2 


68 


R5 


C2 


20 


CC 


85R0 


FD 


00 


R5 


CI 


43 


4R 


4fl 


4R 


05RS 


4ft 


28 


E4 


FD 


00 


Rfl 


63 


29 


85B0 


6F 


20 


E4 


FD 


00 


43 


8R 


28 


85B8 


B2 


FF 


63 


4C 


D2 


FF 


18 69 



G5C0 F6 90 02 69 06 69 3R 60 
0508 R2 02 E5 C@ 48 B5 02 95 
00 68 95 C2 CR B0 F3 60 
05D8 29 0D FE 00 90 07 Rfi 20 
05E0 0D FE 00 90 01 6© 4C 4B 
05E8 FD 00 05 00 BO 85 2ft 20 
05F0 40 FE 00 C9 20 F0 F9 20 
05FS 20 FE 00 90 1? 2tf 40 FE 

0600 00 C9 30 90 10 20 35 FE 

0608 00 06 2ft 06 2ft 06 2ft 06 

0610 2ft 05 2ft 85 2ft 38 66 C9 

0618 3ft 08 29 0F 28 90 02 69 

0620 08 60 20 CF FF C9 QIs B0 

0628 F8 68 68 4C 50 FD QS fl5 

0630 91 C9 FE D@ 05 08 20 CC 

0638 FF 28 60 20 61 FE 00 2C 



064a 


2D 


91 


30 


0648 


00 


DO 


08 


0650 


00 


00 


35 


0653 


00 


00 


20 


0660 


20 


CC 


FD 


0668 


C6 


IE 


D0 


0670 


00 


90 


0E 


0673 


CI 


ci 


F0 



F3 60 


20 


40 


FE 


ft9 03 


85 


9ft ft9 


99 60 


85 


IE 


ft0 


ftF FE 


00 


bi 


CI 


00 20 


ft4 


FE 


00 


Fl 60 


20 


OD 


FE 


ft2 00 


00 


81 


CI 


03 4C 


4E 


FD 


00 



9 

0680 20 ft4 FE 00 C6 IE 60 ft9 

: 0638 02 35 CI H9 00 00 85 C2 
: 0690 ft9 05 60 E6 01 DO 06 E6 
069S C2 D0 02 E6 27 60 R9 20 
06RO 2C ft9 0D 4C D2 FF ft2 00 
: 06H8 00 ED D0 FF 00 20 D2 FF 
: 06E0 E8 E0 16 D0 F5 20 E2 FE 
: 06E8 00 R2 2E R9 3E 20 DE FD 
? 

06C0 00 R5 00 00 20 CC FD 00 
: 0608 R5 01 20 CC FD 00 20 99 

06D0 FE 00 20 6F FE 00 4C 50 
: 06DS FD 00 20 FE FD 00 85 01 

06E0 36 00 00 20 99 FE O0 85 
= 06ES IE 20 S3 FE 00 D0 FE F0 

06F0 Eft 20 ED FD 00 ft9 05 85 
■ 06F3 IE 20 83 FE 00 D0 FE F0 



? 



? 



0700 


DC 


20 


CF 


FF 


C9 


0D 


F0 


07 


0703 


el) 






act 
yy 


CO 


rt 1 


Ob 


yy 


071O 


00 


R6 


06 


9ft 


R5 


00 


00 


43 


1 

<3r lo 


nj 


l~i 1 


JO 


rfy 


DC 


JO 
"TO 


PI-j 


yo 




no 


yH 




y-J 


t 


f o 


no 


uo 


Or eiO 


oo 
jn 


Of* 


i"i-"> 
Be 








FTr 
PI' 


yy 




no 


fl1 
t-' X 


OA 






■RO 




OH 


or oo 


He 


Oil 

oh 


•act 

jy 


OH 


JO 


etc* 


tJel 


ec 
oo 


0740 


EC 


A9 


40 


85 


EE 


20 


CF 


FF 


0743 


L9 


Wo 


rU 


F9 


C9 


WD 


F0 


lfl 


0750 


C9 


22 


no 


DS 


20 


CF 


FF 


C9 






Fy 


2t> 


C9 


0D 


F0 


0B 


rt 4 

91 


8760 


EE 


E6 


E7 


C8 


CS 


10 


F0 


C5 


rt*-i ■"~r-\ 

07b3 


D0 


Efl 


R5 


4 rt 

1C 


C9 


4C 


D0 


E^' 


0770 


R9 


00 


00 


20 


E5 


FF 




58 


0778 


FE 


00 


M5 


— - 


29 


10 


D0 


F0 


078@ 


4C 


56 


FD 


00 


28 


CF 


FF 


C9 


3788 


0D 


F0 E2 


rtrt 


2C 


D0 


FU 


--,rt 


G790 


0D 


FE 00 


29 


0F 


F0 


D3 


C9 


>Ji jo 


y.J 


F0 


FR 


o^ 


TO 




br 


CC7 

rr 


07A0 


ty 


0B 


F0 


LPI 


r-o 


If. 


uy 


to 


Or no 


OCt 


EE FE 




&.y 


L-r 


rr 


ro 


tJi r-t' 


kW 


20 


F4 


cxi 


r t- 


PTi 
r 1' 


y y 


o=: 

O -■ 


m"*T30 


ftp 


86 


AF 




rF 


PP 






67C0 


F0 


F9 C9 


0D 


D0 


EC 


fl5 


1C 


07D0 




S3 


D0 


pp. 






r c 


yy 


A3 


01 


85 




20 


32 


F6 


4C 


Or lib 




FD 


00 


Wl> 


ciy 










ho 


20 


20 


■J-J 






jit 


->o 


1 bo 


c:@ 


58 


52 


■if 








DO 


r-i ^ rr 
y r r t' 




4D 


52 


CO 
JO 


A"? 


in 


o b 


hU 


Oi r o 


JO 


36 FD 


uu 


Z>~? 
Of 


rt 




AM 

to 


lTiOiTil"-) 


FF 
rr 


00 


02 


PF 

rr 


yy 


Fd 


P £ 


yy 


0808 


El 


FE 09 


2D 


FF 


00 


2D 


FF 


0810 


00 


IE 


FD 


00 


ftft 


flfl 


flfl 


flfl 


0318 


AA 


flfl 


flfl 


ftft 


ftft 


flfl 


flfl 


flfl 


0820 


AA 


Rfi 


Rfl 


RR 


flfl 


flfl 


flfl 


ftft 


0828 


RA 


flfl 


flfl 


flfl 


flfl 


flfl 


ftft 


ftft 


0330 


AA 


flfl 


flfl 


flfl 


flfl 


flfl 


flfl 


ftft 


8338 


RR 


flfi Rfl 


RR 


flfl 


flfl 


ftft 


nri 
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READY. 



RACER 



DESCRIPTION 



This game has two programs making a whole. The object of 
the game is to steer the racing car through the course against 
such hazards as oncoming racing cars and oil slicks. The 
pace of the game is very fast to begin with and it becomes 
progressively harder. To score points the racer must pass 
through certain points on the course, a tricky procedure, as 
the oil slicks cause the racer to slide one point either side. 
The game is over when either the oncoming cars are hit or 
the racer is steered off the edge of the course. 



EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 



Load and run part one and follow instructions . 

Steering is obtained using key L to go left and ';' to go right. 

Avoid all oil slicks and oncoming vehicles. 

PROGRAM STRUCTURE 



The lines of most interest are as follows: 



Part One: 

40 Limit top of string space to protect characters 

50 Black screen 

70-90 Move character generator 

100 Set graphics mode 

120-140 Pause until instructions are read 

180-340 Set up graphics characters from data 

350-550 Character data 

560-640 Instructions 



Part Two: 

40 Clear the screen and display title 

50-60 Arrays for track, cars and obstacles 

70-380 Main game routine 

390-440 Set up initial screen display 

490-570 Set up track and obstacles into arrays r$ and o$ 
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10 REM RACER 

2fl REM **************************************** 

33 REM 

43 PUKE 51, &■ POKE 52,23 
50 POKE 36879, 8 

69 GOSUE 560 

70 FOR X=0TO511 

SO POKE 7 1 6S+X , PEEK < 32763+X > 
90 NEXT 

10O P0KE36369 , 255 : POKE 36366, PEEK-: 36866 > OR 123 
110 GOSUE 170 

120 PRINT" M&H IT SPACE TO CONTINUE" 

130 GETfit ' IFAtO" "THEN 130 

140 POKE 36369, 240- P0KE36866, 150 

150 PR I NT 'THOU LOAD & RUN THE HNEXT PROGRAM" 

160 END 

169 REM 

170 REM CHARACTER DATA ENTERED 

171 REM 

136 READ X:X=7168+X*S 

190 IF X<7899 THEN RETURN 

200 READ A*= IFLEN<A*:-=3THEN260 

210 POKE X,\-'fiL<A*> 

220 F0RV=1T07 

230 READ A : POKE X+V,A 

240 NEXT 

25G GOTO 170 

260 OOSUB 310 

270 FGRH=X+lT0X+6 

230 GOSUE 30O : NEXT 

290 GOTO 170 

300 READ A* 

310 A=8:F0RV=1T0S 

320 R=fi*2-<MIB*<ft*/ V, 1 > = "*" > -' NEXT 

330 FOKEX,R 

34G RETURN 

344 REM 

345 REM CHARACTER DATA 

346 REM 

353 DATA O , 1 53 , 255, 1 65 , 60, 60 , 1 89 , 255 , 1 29 
360 DATA 27,129,255,139,60,69,165,255,153 
370 DATA 23 , 255 , 129, 139, 165, 1 65 , 139,1 29 ,255 
330 DATA 29,255,255,255,255,255,255,255.255 
390 DAT A 30 , 255 , 1 27 , 63 > 3 1 , 1 5 , 7 , 3 , 1 
400 DATA 31 , 128, 192, 224, 249,248, 252, 254, 255 

419 DATA 33,255,254,252,243,249,224,192,123 

420 DATA 34 , 1 , 3 , 7 , 1 5 , 3 1 , 63, 1 27 , 255 

430 DATA 35 , 240 ,192,131,2,2,131,192 , 2-1 9 
44G DATA 36 ,0,0,212 , 84 ,84,215,0 , 
450 DATA 37 , 1 5 , 3 , 1 , , 9 , 1 29 ■ 3 , X 5 
468 DATA 33 
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470 DATA. . 
486 DATA. .****. . 
430 DATA. #.**.*. 
586 DATA* . ***** . * 
519 DATA.*.**.*. 
52© DfiTa .***#. ." 
536 DfiTfl. 
540 "DATA. ..**-.. 
550 DATA -33 

554 REM 

555 REM INSTRUCTIONS 

556 REM 

560 PRINT 11 rTRACER" 

570 PRINT" " 

580 PRIHT"SB!JSE THE AND 
5-90 PRINT"*KEVS TO STEER VOUR CAR" 
600 PRINT"' C ALONG A ROAD. HIT" 
610 PRINT"** V TARGETS FOR POINTS" 
620 PRIHT"»BUT AVOID HEAD ON" 
630 PRINT'MCOLLISIONS WITH '•**" 
640 RETURN 
REABV. 



10 REM RACER 2 

REM ■ t M $ M $ ^ i ?K $ ^ ^ $ $ $ ¥ $ $ $ $ i*H sti i ^ $ $ ^ ^ W< : Hr« ~¥ ■ $ $ 
33 REM 

40 PR INT 'TK ACER" 

50 run x,a 

60 niMR$^>,of-:2> 

70 GOSUE450 

S0 GOSUE330 

30 L=L-1 : IFLTHEN120 

100 L=INTCRND<i>*5>+5 

1 1 S H=SGN < D + 1 NT < RNL ( i ) #3 > - 1 ) 

1 26 I FT+IO- 1 0ORT+H<4THEHD=0 

120 T=T+D-POKE SI, 1 

140 POKE V,0-POKE V-F+Q,4 

150 PR I NTTAE (.T> PS ( D+ 1 ) 

160 IFRND<1J>CTHEN1S0 

176 PRINTTfiB<T+2+RNB<3>*7> "n"0*<RND<l>*3> 
1 30 V- V+ < PEEK { K > =21 J- < PEEK C K ) =22 :> 
1 90 0=FEEK<Y> : POKEY, 27 : PCKEY-P+Q, 7 
206 POKE 31,4 

210 IF O=0OR 0=32 THEN 2S0 
220 IF QOfl3C<"fl")THEN240 

230 s=s+i :pRiHT"naa ,i s ,, aa" ;c=c+„0i5 

240 IF OO34THEN270 

250 IF0>=ASC THEM 270 

260 POKE V, 38 : V~V+IHT<RNIK 1 >*3>-l :0=PEEK< Y> 

270 GOTO 30 

233 IF S>HTHENH=S 

290 FORX= 1 5T0 l STEP- 1 ■ POKES 1 , X 

3O0 POKES 2, 1 28+X*< 1 5-X> : FORfi= 1 T058 NEXTfl, X 

310 PRINT" *CORE"S% HI SCORE"H 

320 PR I NT "ANOTHER GO V/N"; 

330 POKE S 1,0 -POKE 32,6 

340 GETfif : IFA$="V"THEHS6 

350 IF fl*<> M N"THEN348 

360 PRtHT"Sr 

370 POKE 36369, 240: POKE 36366,150 

3S0 END 

390 PRIM?" 3* 

480 T=10:C=.l : 0=29: 3=0 

410 V=7S45:L=3:D=0 

4£o F0RX=1 TO 22 : PRINT, "IH"R*C1>: NEXT 
430 POKE 36377, 123 
440 RETURN 
450 REM 
460 REM 

470 REM SET UP VARIABLES 

430 REM 

430 FGKE36S63, 255 : P0KE36866, PEEk'<363£6>QR12A 

530 P=76SS : 0=33408 

510 K= 1 97 = H=0 • S 1 =36373 : 32^36377 
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5£'3 RESTORE 

536 R* C 0) -CHR* < 34 > + " 3 3 3 3 3 3 3 3 3 ! " 
540 RS<1>= 1, 3 3 3 3 33 3 3 3 3 " 
550 R*<2>="Bt333333333*" 

56Q o*<©>«" m$z " •■ o* < i > - " ■ ot c 2 ayp 

579 RETURN 
PFflnv. 
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CAR RACE 



DESCRIPTION 

This game is a computerised version of the Grand Prix. The 
player has five choices of internationally famous racing 
drivers to emulate. Having chosen your driver the 
players — you and the computer — line up at the starting 
point. The display is an attractive picture of a tree-lined track. 
The course runs over five laps and should the player steer off 
the course he hits the trees but is still able to continue 
because the player is playing against time; the VIC player is 
programmed to complete the course precisely. 

EQUIPMENT REQUIRED 

Basic VIC-20 with 3K expansion. 

RUNNING THE PROGRAM 

Load the Game and type run. Steering is obtained using a 
group of keys on the left hand side of the keyboard. These 
are as follows: 

Q W E 
A S D 
Z X c 

These directions are based around the central position of 'S', 
corresponding to the points compass. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows: 
40-80 Decide on video map 
100-490 Instructions 
500-1000 Main game routine 
1020 1250 Display the track 
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10 REM CAR RACE 

20 rem **-mmmmm*mMmmmwM*M*MMm*# 

30 REM 

4G VR=PEEK<548>*256 
53 REM 

63 REM INSTRUCTIONS 
73 REM 

53 KR=3340G : IFVRO?«S0THENKR=378SS 

yfi P0KE3C365j ^.4^ 

1 SO P0KE36879 ,7*16+ 7+3 

i io print -an *** — *-~ #** 

120 PRINT-jS&YQU HAVE TO DRIVE YOUR"; 

130 PRINT" CAR AROUND THE /RACK"; 

140 PRIHT H MJHE Xv- CAR WILL EE 

150 PRINT" RACING AGAINST YOU. 

J GO PRINT" YOU WILL CRASH IF 

173 PRINT" YOU HIT THE SIDES 0F ,: ; 

130 PRINT" THE TRACK OR IF 

135 PRINT" YOU HIT THE Xv~ CAR." 

130 PRINT"! HE RACE IS OVER 5 LAPSMMH" 

203 PRINT" HIT ANY KEYH 11 

2 1 O GET A* ; I FA*<> " " THEN250 

223 FORI=1TO2O0-NEXT 

230 PRINT" rSHIT ANY KEY.T' 

240 FOR 1=1 T02G0 ■ NEXT ■ COTO20G 

250 PRINTS :P0K£36863, 24© ■ PRIH^rWOU STEER WITH: MM 

260 PRINT" Q W E 

273 PR I NT" Pi \U 

230 PRINT" A-S-B 

230 PRINT" /l\ 

:';0O PRINT" 2 X C 

310 PRIHT"M«tfFiNlf THE sEHIFTi TO 00 

320 PRINT" FASTER. a 

330 PRINT" MM <- IS YOUR CAR 

349 FRIHT"SS»fl -C- IS THE VICXM 

353 PRINT" HIT ANY KEVH 

360 GETfl* : IFA*<>" " THEN400 

370 FOR I = 1 TO20O : NEXT 

330 PRINT" SHIT ANY KEVH 

330 FOR I = 1 T0209 : NEXT : GOTO350 

430 PRIHT"nWKWHO WILL YOU EE? 

410 PR I NT "M 

420 PRINT "Ml. Htm LAUEA 
430 PR I NT "SC. ALAN PROST 
440 PRINT "KB. JAMES HUNT 
450 PR I NT "364. KEKE RCSEERG 
46u PRINT "KB. STORM IN' NORMAN 
473 PRINT"MftWICM ONE ? 
430 POKE204.O 
430 GETA* • I FAi=" " THEN430 
434 KEN 
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495 REM PLflV THE GRME 

496 REM 

590 F0KE204, 1 : PRINT" EE"; 

510 SL=VflL;fi$0 ■ I FSL>50RSL< 1 THEH4S0 

52S DIMhK28>*D<28:> 

530 ERTR3,2,3, 1 , 2, 4, 3, 7, 3, 8, 1 , 7, 2. 4.. 1 , 1 .-5, 2. 3 
540 ERTR1 ,1,4,1,7,1 2, 3, 1 , 3, 3, 3, 1 , 9, 2, 6 



553 ERTfil j 3, 3 j 2, 1 , o, b, 2.' 9, 1 , o, 2,9.' 2,6, 2, J, 7, 2 



568 FOR I = 1 T027 : RERUN < I > , B ( I > : NEXT 

573 BRTR21, 22, 23, -1,0, 1,-23,-22,-21 

530 F0RI = 1T09 : RERJJM( I ) : NEXT 

590 nRTR"Z", "X" , "C", "R" , "3", "D" , "Q" .• " W " , "E" 

6O0 FOR 1 = 1 T09 = RERDT* ( I > ■ NEXT 

610 VF-VR+259 : OF -VF+2 = GOSUE102G 

628 GETE* : IFE*=" " THEN62G 

630 GETfl* : I FR^- " " THENfl*=B* 

640 B$=fl$ : POKEVK, 9 = POKEVP , 32 

650 IFfi*=""THEH700 

660 F0RI=1T03 

670 IF<flSC<fl*> RNE 1 27 > =RSC ( T* < I > ) THENfi*=STR* I : I = 1 
6S0 NEXT 

630 I FRSC < fl* » 1 2STHENRS =CHR* >-. flSC < R*> - 1 23 
730 VP= t P+M ■:: VRL fi$ > > 

710 I FPEEK < VP :.■ =320RPEEK < VF ) =36THEN7S0 

720 I FNOT < PEEK ( VP > =6 lflNI'M < VRL fl$ > ) 2 ■' THEN 739 

725 VL=VL+1 ■ VF-VF+22 : GOTO760 

730 I FPEEK v VP j=S3THENGO3UE950 : G0T076G 

740 Mfi:-:l 1 1; 9.^0 

753 B$=" " : VP=VF--MCVflL<fi*) >:R*=" " 

760 POKEVP, 31 

770 VK=VP-VR+KR ■ POKEVK, 2 



320 I F 3 ~ 1 R N E 3 L = 5 R N E R N E '■ T I ». 2THENG0SUSS3G 

S30 IFPEEK(654>=1THENTG=1 : G0T0S50 

343 FORU=1TG100:NEKT 

350 GOSUES90 

360 IFVL=5THEN1260 

370 IFCL=5THEN1260 

330 OOTO630 

390 C3=0 ■ IFC=0THEHG=G+1 ■ C=N<G> = D=M(D(i3) : 
9O0 I FN '■. G ' >5THENCS= 1 
913 IFGO2STHEH330 

320 0=0 ; CL=CL+1 : CF-7341 : C=0 ■' POKECP-22, 61 : GOTOS 

930 C=C-1 = FOKECK, O ■ POKECP, 32 : CP=CP+D ■ PGKECP, 31 

940 CK=CP-VR+KR : POKECK, 6 : RETURN 

950 FQRI = 1T09 : R=FEEK'- VP+M < I > ]> 

960 I F R O 2 S T H E N R = R + 1 2 8 ■ POKEVP^ H 1 I > , R 

370 HE, ! 7 



730 
735 
733 
330 
310 
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380 FOR I =9T01 STEP-1 R«PEEK< VP+M CD) 
930 I FR> 1 28THENR=R- 1 23 : POKEYP+M < V * R 
1090 NEXT : RETURN 
1810 END 
1@14 REM 

1015 REM DISPLAY THE TRACK 

1016 REM 

1020 P0KE36S79, 16+8+1 
1030 PR I NT " r3 Stt*B MM******!. 



1040 PRINT" 

1O50 PRINT" 

1060 PRINT" 

1070 PRINT" 

I0S0 PRINT" 

109© PRINT" 

11Q0 PRINT" 

1110 PRINT" 

1120 PRINT" 

1130 PRINT" 



a I 

■ > 

ft ! 

■ I 
is ! 

■ ! 

■ : 



\SW>**B,' 

/"\ \ m* i / 

I ZirU \ 



\HM>" 
MP*" 



I mm I 
J HM4i~ 



1140 PRINT" Kill' 

lis© print" ■ i i i i mm I 

a ! I I 

ait I 
a I t fiftax 
a i I ma i 
m/ 



I Efta I 
/Wta i 

/mm 

MM¥m i f " 

MJWi I I " 



I I 
I I 



1160 PRINT" 

1170 PRINT" 

1180 PRINT" 

1130 PRINT" 

1200 PRINT" 

1210 PRINT" 

1220 PRINT" 



I EftB I 
ffttB I 

I Efta t 
I Etta I 

w 



I 



I 



1238 PRINT" 



I fifta I 
\Ei*B i 

1 t 

I BH*H\ 
I BSHBN 

..■■■IPH'H'HB 
/UM j wfiPS M*" 



■\ 

EM«B\ 

1240 PRINT" .2**B Stt*S a _fiP3 S»*a" 

125S RETURN 

1260 P0KE36873, 27 : PR I NT "TH 
READY. 



TAPE SEARCH 



DESCRIPTION 

This program is a utility to enable a fast forward search of a 
program tape. It will not recognise sequential files. The pro- 
gram is set up for ten programs but a larger number will do. 

EQUIPMENT REQUIRED 

Basic VIC 20. 

RUNNING THE PROGRAM 

Once typed in, the array FL$ is set up with the names of the 
programs on the tape. Type run and a directory of the tape is 
displayed on the screen from the array FL$. Hitting the cor- 
respondence key will tell the computer which program is re- 
quired. The program will then ensure that the stop key has 
been pressed before requesting that the fast forward key be 
pressed. After that, all you have to do is wait until you are 
told to press the stop key and then the tape is in the correct 
position to load the requested file. Note that the tape must be 
rewound or set to the position of the first file in FL$. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 
20-110 Set up the directory. 

140-150 Check that no keys are depressed on the tape 
deck. 

160-310 Print directory and choose program. 

320-380 Searching for the file. 

390-455 Tape is now ready to load from. 
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28 FL*<i>«" 
30 FL*<2>-" 



I" 




78 FL*<6)=" 
30 FLf<7>* H 
30 FL*<8>=" 
100 FL$<9;= 



I" 



lie R_*a0>^" 



140 PRINT " nUfcttPRESS STOP ON TAPE#I ,! 
ISO IF PEEK (192? O0THEN ISO 
160 PRINT "H* 

170 PRINT" ** DIRECTOR?!' ** " 

ISO PRINT" 

130 F0RQ~1TG22 : PRINT"—" : NEXT : PRINT" " 

218 PRINT "I FILE I DESCRIPTION 1 " 

238 F0RGMTQ22 : PRINT" - " ; NEXT PRINT" " 

248 FORQ=1TO10= PRINT" i *CHR*<0+64>; 

258 PRINT" I ";FL#CQ) -NEXT 

268 FORO= 1 T022 ; PR I NT " ~" ; NEXT -PRINT 

278 PRINT"M*IICH FILE DC VOU WANT?" 

238 GETC* ■ I FC$= " " THEN2S8 

298 I FC*< "A " ORC$>"L " THEN2S0 

380 BS=ASC<C$>-64:F1=BS 

318 FT = BS#8 3-3 

328 PR I NT " nsMeWSERRCH I NG FOR FILE "; 

325 PRINTS* PRINT" WW" 

338 PR I NT "NAMED ";FL*<fl> 

348 PRINT "MMflfittPRESS FAST FORWARD ON 

345 PRINT" TAPE" 

353 IF PEEK<37137>062THEN358 

360 FT«TI+FT*€0 

378 IF TKFT THEN 378 

380 POKE 192,52 POKE 37148,241 

398 PRINT "rWWMMMMPRESS STOP ON TAPE 

488 IF PEEK<192)O0THEN 488 

485 POKE 37148,14 

418 PRINT "neiSKTTAPE IS NOW IN CORRECTS" ; 

415 PRINT" POSITION FOR" 

428 PRINT "FILE ";C$;", ";FL*<Fi> 

448 PR I NT "MM YOU CAN NOW LOAD M"; 

445 PRINT" OR SAVE " 

450 PRINT THIS PROGRAM" 

455 END 

READY « 



APPENDIX TO 
SPECIAL PRINT CHARACTERS 



KEYS TO PRESS 



CTRL 


□ 




rn 


CTRL 




CD 

L__J 


CTRL 




CD 


CTRL 
. . . 




LU 

y — __j 


CTRL 







CTRL 




□ 


CTRL 




ID 


CTRL 




CD 


( CTRL 




□ 


- 

SHIFT 




| cm 1 
IhomeI 





c|r 




SHIFT 




CRSR 









CRSR 
* 



SHIFT 



CIH 

PKIMI 



HOW IT 
APPEARS IN PRINT 



□ 





□ 

□ 




DEFINITION 
BLACK 

WHITE 

RED 

CYAN 

PURPLE 

GREEN 

BLUE 

YELLOW 

REVERSE ON 

REVERSE OFF 

CLEAR THE 
SCREEN AND 
HOME 

CURSOR DOWN 
CURSOR UP 
CURSOR RIGHT 
CURSOR LEFT 
HOME 
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INDEX 

BREAKOUT 6 
This program is a well adapted version of the popular 
arcade game of the same name. 

FIND THE WORD 11 
A recognition test- useful for teaching and learning. 

SPACE PIRATES 17 
An amusing game in a race against time. 

VIC VIC 22 
A program demonstrating the use of the control registers. 

BIRDS DEMO 25 
An attractive demo for user defined characters. 

RHINO 30 
An interesting game requiring the user to use logic to 
escape through the jungle. 

DO-RAY-ME 39 
A program to enable the user to use the VlC-20 keyboard 
as a musical keyboard. 

SOUND EFFECTS 43 
A program for use on its own or in a program written 
by the user. 

ARROW 47 
An amusing game which tests the user's co-ordination. 

TANK-V-UFO 52 
A simple game with the user taking the part of the tank. 

LANDMINE 58 
A maze game with increasing difficulty for the user. 

SPACEWAR 65 
Two programs making an interesting and intriguing game 
for the user. 

JOYSTICK TEST 72 
A useful routine for the user to incorporate in 
his own programs. 

DEFINE KEYS 74 
Enables the user to define the eight functions keys 
on the keyboard. 
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U.S.A. SONG 77 
A demonstration program using the VIC-20 sound 
output to play a tune. 

DIGICLOCK 82 
A program demonstrating the time keeping facility of 
the VIC-20. 

LEAP FROG 85 
A puzzle for the mathematically minded. 

RUBIK'S CUBE 92 
An absorbing version of Mr. Rubik's addictive game. 

BOSS PUZZLE 97 
Tests the mental agility of the user to re-arrange a 
mixed up block of numbers into a sequential pattern. 

SKETCHING 1 102 
This program enables the user to produce displays 
using the Commodore graphics symbols. 

SKETCHING 2 106 
This program provides the user with an 8 x 8 grid to 
sketch in high resolution using the joystick. 

KALEIDOSCOPE 110 
Creates a colourful and attractive changing pattern 
on the screen. 

HI-RES DEMO 113 
A program to demonstrate the high resolution capabilities 
of the VIC-20 when using the Super Expander Cartridge. 

BANDIT 116 
This game is a highly addictive version of the one armed 
bandit pub game. 

MOON LANDER 122 
A realistic game/test for the would be astronauts. 

CIRCLE DEMO 127 
A program to demonstrate the use of the character 
generator when displaying circles in high resolution. 

HI-RES PLOT 130 
Enables the user to plot points in high resolution. 

HANGMAN 133 
An intelligent version of the childrens game, would he useful 
as a teaching /learning aid. 



GOMOKO 141 
A test of skill playing the old oriental game of Gomoko 
{or Go as it is sometimes known). 

SUPERMIND 147 
A version of Mastermind adapted for the VIC-20, 
CONQUEST 153 
A tale of Do and Dare as the Knights defend their castle. 
HI-RES AID 159 
A useful program to design graphics characters. 

TINYMON 163 
A machine code monitor for the VIC-20. 

RACER 170 
An exciting and intricate racing game on a vertical plane. 

CAR RACE 176 
The Grand Prix of video racing. 

TAPE SEARCH 180 
Fast forward tape search program. 

APPENDIX TO SPECIAL PRINT CHARACTERS 1 83 

Useful for recognizing the special characters found in PRINT 
statements. 
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VIC GAMES 

NICK HAMPSHIRE 

A collection of 36 exciting and useful programs For your Commodore 
VJC-20 microcomputer Features ore ode -style games, strategy games, 
and educational word games. Challenge your driving skills on your own 
j nd Pr jx rate frock, light a war v»ith space piroles; moneuver your 
way through a more of londmrnes; solve the RubiVs cube (if you can!); 
create your own colorful imoges one music tQ go with mem; find your 
way out of the jungle; improve your children's (or your own'} grilling 
and vocabulary skills; plus much, much morel 

Sound, music, utilities, ond graphics programs that ore fun, eosy lo 
play, ond instructional for every VlC-20 user. 

OTHER BOOKS BY NICK HAMPSHIRE „, 

VIC REVEALED 

An invaluable and comprehensive inside took a I the hardware capabili- 
ties of the Commodore VIC -20. Expand your assembly language pro- 
gramming skills and learn advanced programming technFques. The 
author uncovers the VIC's outstanding features such as the program- 
ming power given the limited memory, the superior gome and graphic* 
technology in the video interface chip, and unique I/O capabilities. The 
complete instruction set for the 6502 CPU is also disclosed, as well as 
options for using machine-code subroutines in VIC BASIC programs. 
# 1058-3, paper 272 pages. 

VIC GRAPHICS 

A dazzling display of graphics in 38 complete programs for the Commo- 
dore VIC-20 microcomputer. The author clearly explains rhc theory of 
high-resolulion-graphics plotting and the multicolor mode of the VIC 
Applications of these graphrcs displays range from art lo gomes to 
educational simulations in malh, science, ond business. AW program 
1 stings have been lesied and Ore annotated tor eosy reference and 
nodi fi col ion. #1057-5, paper, 192 pages. 
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